vb.net动态生成控件并排版

 ''' <summary>
    ''' 动态生成控件并调整控件位置；
    ''' </summary>
    Public Sub CreateControl(ByVal TextBoxTagContent As Dictionary(Of String, Integer), ByVal TextBoxType As List(Of Boolean))
        Dim keyvalue As KeyValuePair(Of String, Integer)
        TextBoxIndex.Clear()


        '生成LabelBox和Textbox
        '文本框区分为数字和文本两种
        If TextBoxType.Count = TextBoxNum Then
            For i As Integer = 0 To TextBoxNum - 1
                Me.Controls.Add(New Label())


                Me.Controls.Add(New TextBox())


            Next
            For j As Integer = 1 To TextBoxType.Count
                If TextBoxType.Item(j - 1) = True Then
                    '添加默认值
                    If CType(Me.Controls.Item(2 * j - 1), TextBox).Text = "" OrElse IsNumeric(CType(Me.Controls.Item(2 * j - 1), TextBox).Text) = False Then
                        CType(Me.Controls.Item(2 * j - 1), TextBox).Text = "1.00"
                    End If
                    '是数字文本框时时添加事件处理
                    AddHandler CType(Me.Controls.Item(2 * j - 1), TextBox).LostFocus, AddressOf ActiveEvent
                End If
            Next