vb.net控件随窗口大小调整

原创已于 2024-10-26 10:23:24 修改 · 8.3k 阅读

11 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb.net #窗体 #控件 #自适应大小

于 2016-07-03 21:34:35 首次发布

本文介绍了如何在VB.NET中使窗体控件随着窗口大小的变化自动调整其位置和尺寸。通过在FormTest_Load事件中保存控件的初始位置和大小，在FormTest_Resize事件中根据窗口的新尺寸按比例调整控件的位置和大小，实现了控件的自适应布局。

' === 窗体控件自适应大小 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 ===