让VB自动改变控件大小

文章作者 100test 发表时间 2007:09:06 11:59:37
来源 100Test.Com百考试题网

　　当窗体大小改变时，如何动态的改变控件的大小是许 多VB程序员头痛的事。有的人设置窗体Resizable但却不改变控件的大小；有的人则根据控件 的绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比较繁琐，且不 可重用；当然也有人则限定窗口干脆不让改变。 有没有一种简便易行的办法？答案是肯定的， 下面给出一个一劳永逸的办法，源程序如下:

OptionExplicit
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_Load()
CallResizeInit(Me)在程序装入时必须加入
EndSub

PrivateSubForm_Resize()
CallResizeForm(Me)确保窗体改变时控件随之改变
EndSub
　　本例中给出了二个函数:ResizeInit和ResizeForm, 在调用ResizeForm之前必须先调用ResizeInit。你可以将本程序拷到窗体代码段里，然后在 窗体里加入任意控件即可进行测试。