在开发中，往往开发人员需要控制控件大小适应窗口的大小，使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?
有三种方法供选择：1、用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。第一步：窗体LOAD事件时记下每一个控件的位置属性和大小，并取得窗口大小的属性值。第二步：计算缩放比，就是用控件的LEFT和WIDTH属性分别除以窗口的WIDTH属性值得到两个比值X1,X2。再用控件的TOP和height属性值分别除以窗口的HEIGHT属性值得到两个比值Y1,Y2。第三步：在窗体的Resize的事件中，控件的位置和大小=窗体的大小*比值。总结：这样各个控件的位置和大小由窗体的大小决定。这个问题还可以延伸：A;窗体大小改变时，控件位置改变但大小不改变。B;窗体大小改变时，控件大小改变但位置不改变。
这两个问题还可以细化窗体的WIDTH属性和height属性值分别变化对控件的大小和位的影响。总共有六个情况。你可以打开酷狗，当你改变它的窗体大小时，你仔细观察它里面的控件的大小和位置的变化情况，细细的品味这种变化。相信你能自己写出代码，这个并不太难。2、使用第三方软件，但是效果很差，而且需要安装第三方软件，非常没有必要。
3、比较推荐的一种方法：
'窗体最大化定义
PrivateFormOldWidthAsLong
'原始宽度
PrivateFormOldHeightAsLong
'原始高度
PublicSubResizeInit(FormNameAsForm)
DimObjAsControl
FormOldWidth=FormName.ScaleWidth
FormOldHeight=FormName.ScaleHeight
OnErrorResumeNext
ForEachObjInFormName
Obj.Tag=Obj.Left&""&Obj.Top&""&Obj.Width&""&Obj.Height&""
NextObj
OnErrorGoTo0
EndSub
'按比例改变表单内各元件的大小，
'在调用ReSizeform前先调用ReSizeInit函数
PublicSubResizeform(FormNameAsForm)
DimPos(4)AsDouble
DimIAsLong,TempPosAsLong,StartPosAsLong
DimObjAsControl
DimscaleXAsDouble,ScaleYAsDouble
ScaleX=FormName.ScaleWidth/FormOldWidth
'保存窗体宽度缩放比例
ScaleY=FormName.ScaleHeight/FormOldHeight
'保存窗体高度缩放比例
OnErrorResumeNext
ForEachObjInFormName
StartPos=1
ForI=0To4
'读取控件的原始位置与大小
TempPos=InStr(StartPos,Obj.Tag,"",vbTextCompare)
IfTempPos>0Then
Pos(I)=Mid(Obj.Tag,StartPos,TempPos-StartPos)
StartPos=TempPos+1
Else
Pos(I)=0
EndIf
'根据控件的原始位置及窗体改变大小
'的比例对控件重新定位与改变大小
Obj.MovePos(0)*ScaleX,Pos(1)*ScaleY,Pos(2)*ScaleX,Pos(3)*ScaleY
NextI
NextObj
OnErrorGoTo0
EndSub
PrivateSubForm_Resize()
ResizeformMe'控件随之改变
EndSub
PrivateSubForm_Load()
CallResizeInit(Me)'确保窗体改变时控件随之改变
EndSub
注意：1、声明语句“PrivateFormOldWidthAsLong”和“PrivateFormOldHeightAsLong”不可以放到“Endsub”后
2、如果出现除数为零的情况，需要调整控件的大小。
原文地址：https://www.jb51.cc/vb/259959.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
