VBA，窗體和窗體內的控件大小的自動適配（未完成）

 

1如何讓控件，自適應窗體的大小？

 

Option Explicit

Dim w, h
Private Sub Form_resize()
Dim bilih, biliw, i
bilih = Form1.Height / h
biliw = Form1.Width / w

For i = 0 To 2
Text1(i).Top = Int(bilih * Text1(i).Top)
Text1(i).Height = Int(bilih * Text1(i).Height)
Text1(i).Left = Int(biliw * Text1(i).Left)
Text1(i).Width = Int(biliw * Text1(i).Width)
Next
w = Form1.Width
h = Form1.Height
End Sub

Private Sub Form_Load()
w = Form1.Width
h = Form1.Height
End Sub

 

2 如何讓窗體，可以設置 各種對齊方式

比如 窗體的某一部分 自適應大小 比如listbox

窗體的其他部分不變大小，比如commandbutton

 

 

3 其他UI的調整方式