如何让控制随窗体的改变而改变。

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:49:46
如何让窗本里的控制随窗体的改变而改变。
如果窗体里的控件比较多时，这些办法就不太好用了吧。有没有能控制所有的控件的代码？

我的做法：
添加一个通用模块,自定义一个数据类型,
用于保存控件与窗体的初始比例:
Type OldSit
Left As Single
Top As Single
Height As Single
Width As Single
End Type

然后在窗体的LOAD 事件内编写(以TEXT1为例):
Static sitText1 as Oldsit
with sitText1 '保存原始比例
.left=text1.left/me.width
.top=text1.top/me.height
.height=text1.height/me.height
.width=text1.width/me.width
end with

然后在form的resize事件内写：
on error resume next
'按比例缩放，使用MOVE方法
Text1.move sitText1.left*me.width,sitText1.top*me.height, _
sitText1.height*me.height,sitText1.width*me.width
Text1.fontsize=Text1.height\25 '改变字体的大小

Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight \ 2
Command1.Move 0, Text1.Height, Text1.Width, Text1.Height
End Sub