窗口大小变化时，如何使窗体内控件大小随之按比例变化，多谢

源码！！1

解决方案 »

  1.   

    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,ScaleYAsDoubleScaleX=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
    EndSubPrivateSubForm_Load()
    CallResizeInit(Me)在程序装入时必须加入
    EndSubPrivateSubForm_Resize()
    CallResizeForm(Me)确保窗体改变时控件随之改变
    EndSub