获取物件高宽高不变宽度按比例缩放的代码

xd33651817 发布于 2016-08-02 11:36， 1149 次点击

各位大神
有没有

获取物件高宽高不变宽度按比例缩放的代码
不怎么写这个

2 回复

xiangyue05102016-08-02 13:49

莫名其妙的问题，你的问题根本都没有说清楚。
1. 获取高宽，如何获得？
2. 按比例缩放宽度，一般情况缩放就是乘以一个比例。问题是你这个比例如何确定？
VB编程是将确定的规则用代码实现。你要问一个问题，首先自己对问题的理解；其次其中的规则的明确表述。否则别人无法帮助你

ZHRXJR2016-08-08 12:07

程序代码：

Dim H As Single, W As Single, X As Single
H = Text1.Height   '获取控件的高度
W = Text1.Width    '获取控件的宽度
X = InputBox("请输入宽度按比例缩放的值")   '输入宽度按比例缩放的值
Text1.Width = Text1.Width * X

是不是这个意思？

获取物件高宽 高不变宽度按比例缩放的代码

获取物件高宽高不变宽度按比例缩放的代码