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

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