在开发中，往往开发人员需要控制控件大小适应窗口的大小，使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?

有三种方法供选择：1、用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。第一步：窗体LOAD事件时记下每一个控件的位置属性和大小，并取得窗口大小的属性值。第二步：计算缩放比，就是用控件的LEFT和WIDTH属性分别除以窗口的WIDTH属性值得到两个比值X1,X2。再用控件的TOP和height属性值分别除以窗口的HEIGHT属性值得到两个比值Y1,Y2。第三步：在窗体的Resize的事件中，控件的位置和大小=窗体的大小*比值。总结：这样各个控件的位置和大小由窗体的大小决定。这个问题还可以延伸：A;窗体大小改变时，控件位置改变但大小不改变。B;窗体大小改变时，控件大小改变但位置不改变。
这两个问题还可以细化窗体的WIDTH属性和height属性值分别变化对控件的大小和位的影响。总共有六个情况。你可以打开酷狗，当你改变它的窗体大小时，你仔细观察它里面的控件的大小和位置的变化情况，细细的品味这种变化。相信你能自己写出代码，这个并不太难。

2、使用第三方软件，但是效果很差，而且需要安装第三方软件，非常没有必要。

3、比较推荐的一种方法：

'窗体最大化定义

PrivateFormOldWidthAsLong

'原始宽度

PrivateFormOldHeightAsLong

'原始高度

'在调用ResizeForm前先调用本函数

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、如果出现除数为零的情况，需要调整控件的大小。