' === 窗体控件自适应大小 2016-7-3 ===
Private yuanH, yuanW
Private yHW As Single(,)
Private Sub FormTest_Load(sender As Object, e As EventArgs) Handles Me.Load
yuanH = Me.Height
yuanW = Me.Width
Dim ctl As Control '窗体控件变量
ReDim yHW(Me.Controls.Count, 3)
Dim j As Integer = -1
For Each ctl In Me.Controls
j += 1
'设置位置
yHW(j, 0) = ctl.Left
yHW(j, 1) = ctl.Top
'设置大小
yHW(j, 2) = ctl.Width
yHW(j, 3) = ctl.Height
Next
End Sub
Private Sub FormTest_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Dim ctl As Control '窗体控件变量
Dim biliH, biliW
biliH = Me.Height / yuanH
biliW = Me.Width / yuanW
Dim i As Integer = -1
For Each ctl In Me.Controls
i += 1
'设置位置
ctl.Left = yHW(i, 0) * biliW
ctl.Top = yHW(i, 1) * biliH
'设置大小
ctl.Width = yHW(i, 2) * biliW
ctl.Height = yHW(i, 3) * biliH
Next
End Sub
' === 窗体控件自适应大小 2016-7-3 ===
问道官服新区开服时间表及攻略轻松查找物理地址的全攻略：步骤、工具和应用