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的调整方式