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 ===