Start Here..
OptionExplicitPrivateFormOldWidthAsLong保存窗體的原始寬度PrivateFormOldHeightAsLong保存窗體的原始高度在調用ResizeForm前先調用本函數(shù)PublicSubResizeInit(FormNameAsForm)DimObjAsControlFormOldWidth=FormName.ScaleWidthFormOldHeight=FormName.ScaleHeightOnErrorResumeNextForEachObjInFormNameObj.Tag=Obj.Left&""&Obj.Top&""&Obj.Width&""&Obj.Height&""NextObjOnErrorGoTo0EndSub按比例改變表單內各元件的大小，在調用ReSizeForm前先調用ReSizeInit函數(shù)PublicSubResizeForm(FormNameAsForm)DimPos(4)AsDoubleDimiAsLong,TempPosAsLong,StartPosAsLongDimObjAsControlDimScaleXAsDouble,ScaleYAsDoubleScaleX=FormName.ScaleWidth/FormOldWidth保存窗體寬度縮放比例ScaleY=FormName.ScaleHeight/FormOldHeight保存窗體高度縮放比例OnErrorResumeNextForEachObjInFormNameStartPos=1Fori=0To4讀取控件的原始位置與大小TempPos=InStr(StartPos,Obj.Tag,"",vbTextCompare)IfTempPos>0ThenPos(i)=Mid(Obj.Tag,StartPos,TempPos-StartPos)StartPos=TempPos+1ElsePos(i)=0EndIf根據(jù)控件的原始位置及窗體改變大小的比例對控件重新定位與改變大小Obj.MovePos(0)*ScaleX,Pos(1)*ScaleY,Pos(2)*ScaleX,Pos(3)*ScaleYNextiNextObjOnErrorGoTo0EndSubPrivateSubForm_Load()CallResizeInit(Me)在程序裝入時必須加入EndSubPrivateSubForm_Resize()CallResizeForm(Me)確保窗體改變時控件隨之改變EndSub
posted on 2012-05-25 14:56 ** 閱讀(229) 評論(0) 編輯 收藏
Powered by: BlogJava Copyright © **