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

 '''
    ''' 动态生成控件并调整控件位置;
    '''

    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
        End If


        '设置Label的text属性,且设置textboxtag属性;
        If TextBoxTagContent.Count > 0 And TextBoxTagContent.Count = TextBoxNum Then
            Dim L As Integer = 0
            For Each keyvalue In TextBoxTagContent


                Me.Controls.Item(L).Text = keyvalue.Key
                Me.Controls.Item(L).BackColor = LabelBackColor
                Me.Controls.Item(L).Tag = "NoTag"
                Me.Controls.Item(L).Width = LabelWidth
                Me.Controls.Item(L).Height = LabelHeight
                L = L + 1
                Me.Controls.Item(L).Tag = keyvalue.Value
                '便于根据参数编号取出文本框中的值
                TextBoxIndex.Add(keyvalue.Value, L)
                Me.Controls.Item(L).Width = TextBoxWidth
                Me.Controls.Item(L).Height = TextBoxHeight
                L = L + 1


            Next
        End If
        '定义控件的位置
        'Dim TotalWidth As Integer = me.Width
        'Dim TotalHeight As Integer = me.Height
        Dim current As New Point()


        '控件上下左右之间的间隔固定为6;每四个控件一行,开始给控件定位
        Dim Columns As Integer = 1
        Dim Rows As Integer = 0
        'textbox '定义第一个控件的位置
        current.X = JZ_X
        current.Y = JZ_Y
        Me.Controls.Item(0).Location = current
        For m As Integer = 1 To (TextBoxNum * 2) - 1
            If Columns < PerRowTS * 2 Then


                current.X = Me.Controls.Item(m - 1).Location.X + 6 + (Me.Controls.Item(m - 1).Width)
                current.Y = Me.Controls.Item(m - 1).Location.Y
                Me.Controls.Item(m).Location = current


                Columns = Columns + 1
            Else
                Rows = Rows + 1
                current.X = JZ_X
                current.Y = JZ_Y + 6 * Rows + Me.Controls.Item(0).Height * Rows
                Me.Controls.Item(m).Location = current
                Columns = 1
            End If
        Next
        '调整面板高度
        ActiveGb()
        'enter转换为Tab
        TextBox_init()
    End Sub
    '''
    ''' 数字文本框输入不是数字时,失去焦点后变为0
    '''

    Public Sub ActiveEvent(ByVal sender As Object, ByVal e As System.EventArgs)
        If CType(sender, TextBox).Text = "" Then
            CType(sender, TextBox).Text = "1.00"
        ElseIf IsNumeric(CType(sender, TextBox).Text) = False Then
            CType(sender, TextBox).Text = "1.00"
        ElseIf Int(CType(sender, TextBox).Text) < 0 Then
            CType(sender, TextBox).Text = "1.00"
        Else
            '若是全角数字转化为半角数字
            Dim c As Char() = Trim(CType(sender, TextBox).Text).ToCharArray()
            For i As Integer = 0 To c.Length - 1


                Dim b As Byte() = System.Text.Encoding.Unicode.GetBytes(c, i, 1)
                If b.Length = 2 Then


                    If b(1) = 255 Then


                        b(0) = CType((b(0) + 32), Byte)
                        b(1) = 0
                        c(i) = System.Text.Encoding.Unicode.GetChars(b)(0)
                    End If
                End If
            Next
            Dim returnString As String = New String(c)
            CType(sender, TextBox).Text = returnString
        End If
    End Sub


    '''
    ''' 文本框的Enter转为Tab
    '''

    ''' 按钮添加事件
    Private Sub TextBox_init()
        Dim oneTextBox As Windows.Forms.TextBox
        For i As Integer = 0 To Me.Controls.Count - 1
            If Me.Controls.Item(i).GetType.Name = "TextBox" Then
                oneTextBox = Me.Controls.Item(i)
                RemoveHandler oneTextBox.KeyPress, AddressOf Check_PTT_btn
                AddHandler oneTextBox.KeyPress, AddressOf Check_PTT_btn
                RemoveHandler oneTextBox.GotFocus, AddressOf Check_PTT_Focus
                AddHandler oneTextBox.GotFocus, AddressOf Check_PTT_Focus
            End If
        Next
    End Sub
    '''
    ''' 用tab()代替回车
    '''

    Public Sub Check_PTT_btn(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        '用tab()代替回车
        Dim oneTextBox As System.Windows.Forms.TextBox = sender
        If e.KeyChar = Chr(13) Then
            If oneTextBox.Text.Trim() <> "" Then
                e.Handled = True
                keybd_event(9, 0, 0, 0)
            Else
                oneTextBox.Focus()
            End If
        End If
    End Sub

你可能感兴趣的:(vb.net)