Option Explicit

Private InitWidth As Long Form 的原始大小

Private InitHeight As Long



Private Sub Form_Load()

InitWidth = ScaleWidth

InitHeight = ScaleHeight

Dim Ctl As Control

记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中

On Error Resume Next 确保left, top, width, height, Tag属性没有全有的Control

For Each Ctl In Me 也能正常执行

Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "

Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "

Next Ctl

On Error GoTo 0

End Sub



Private Sub Form_Resize()

Dim D(4) As Double

Dim I As Long- Option　 Explicit　

　Private　 InitWidth　 As　 Long　　　　　　　　　 Form　 的原始大小　

　Private　 InitHeight　 As　 Long　

　　

　Private　 Sub　 Form_Load()　

　InitWidth　 =　 ScaleWidth　

　InitHeight　 =　 ScaleHeight　

　Dim　 Ctl　 As　 Control　

　　　记录每个　 Control　 的原始位置、大小、字型大小,　 放在　 Tag　 属性中　

　On　 Error　 Resume　 Next　　确保left,　 top,　 width,　 height,　 Tag属性没有全有的Control　

　For　 Each　 Ctl　 In　 Me　　　　也能正常执行　

　　　　　Ctl.Tag　 =　 Ctl.Left　 &　 "　 "　 &　 Ctl.Top　 &　 "　 "　 &　 Ctl.Width　 &　 "　 "　 &　 Ctl.Height　 &　 "　 "　

　　　　　Ctl.Tag　 =　 Ctl.Tag　 &　 Ctl.FontSize　 &　 "　 "　

　Next　 Ctl　

　On　 Error　 GoTo　 0　

　End　 Sub　

　　

　Private　 Sub　 Form_Resize()　

　Dim　 D(4)　 As　 Double　

　Dim　 I　 As　 Long