主题：[求助]分区面板内控件布局问题

MyTimers("计划1").Enabled = 1

' 计划1

With  forms("窗口1")

    If .Opened  Then       

        Dim h1,h2,w1,w2 As Integer

        h1 =.height/2

        w1 =.Controls("SplitContainer2").width

        .Controls("SplitContainer2").SplitterDistance = h1

        Dim kjms As String() = {"Button1","TextBox1"}

        

        For Each kjm As String In kjms

            h2 =.Controls(kjm).height

            w2 =.Controls(kjm).width

            .Controls(kjm).Left = (w1 - w2)/2

            .Controls(kjm).Top = (h1 - h2)/2           

        Next

        

        MyTimers("计划1").Enabled = 0

    End If

End With