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
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18