python文本框随窗体变化_窗体的控件随窗体变化自动调整大小

在程序的使用中，如果用户点击最大化或调整窗体的时候，窗体的控件依然不变化，非常不好看，所以我将这段源码贴上，供参考！

非常方便！

Option Explicit

Private ObjOldWidth As Long  '保存窗体的原始宽度

Private ObjOldHeight As Long '保存窗体的原始高度

Private ObjOldFont As Single '保存窗体的原始字体比

'在调用ResizeForm前先调用本函数

Public Sub ResizeInit(FormName As Form)

Dim Obj As Control

ObjOldWidth = FormName.ScaleWidth

ObjOldHeight = FormName.ScaleHeight

ObjOldFont = FormName.Font.Size / ObjOldHeight

On Error Resume Next

For Each Obj In FormName

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

Next Obj

On Error GoTo 0

End Sub

'按比例改变表单内各元件的大小，

'在调用ReSizeForm前先调用ReSizeInit函数

Public Sub ResizeForm(Fo