Question

Windows Forms，VS 2012，VB.NET

我已经尝试了一些代码，但不知何故dang文本框没有放在面板中，我只能假设我实际上没有将它们放在面板中，任何人都能给我一些代码来解决我的问题？

示例代码：

 For Each name As String In li
                Dim Answer As String() = AnsStrPerItem(i).Split(",")
                'addField(NameOfPanel,Width,Height,LocationX,LocationY,color White=white else gray)
                'addPanel("Panel" & i.ToString, 1100, 529, 3, (12 + (i * 89)), "White")
                'addField(NameOfButton,TextOfButton,Width,Height,LocationX,LocationY,readonly 0 = true)
                addField("Q" & i.ToString, name.ToString, 533, 64, 14, (69 + (i * 89)), 0)
                addField("A" & i.ToString, Answer(1), 553, 64, 597, (69 + (i * 89)), 1)
                i += 1
            Next

以及实际添加panel / txtbox

的代码

Public Function addPanel(ByVal NameOfPanel As String, ByVal Width As Integer, ByVal Height As Integer, ByVal LocationX As Integer, ByVal LocationY As Integer, ByVal color As String)

    '------------------------ADDING FIELDS INTO FORM TO SIMULATE A DATAREPEATER

    'INSTANTIATE CONTROL
    Dim Panel As System.Windows.Forms.Panel

    'CREATE CONTROL
    Panel = New System.Windows.Forms.Panel()

    'SET TEXT PROPERTIES
    Panel.Name = NameOfPanel
    Panel.Size = New System.Drawing.Size(Width, Height)
    Panel.Location = New System.Drawing.Point(LocationX, LocationY)

    If color = "White" Then Panel.BackColor = Drawing.Color.White Else Panel.BackColor = Drawing.Color.LightGray

    'ADD CONTROL TO FORM1'S COLLECTION
    Form1.Panel5.Controls.Add(Panel)

    Return Nothing

End Function

Public Function addField(ByVal NameOfButton As String, ByVal TextOfButton As String, ByVal Width As Integer, ByVal Height As Integer, ByVal LocationX As Integer, ByVal LocationY As Integer, ByVal ro As Integer)

    '------------------------ADDING FIELDS INTO FORM TO SIMULATE A DATAREPEATER

    'INSTANTIATE CONTROL
    Dim txtb As System.Windows.Forms.TextBox

    'CREATE CONTROL
    txtb = New System.Windows.Forms.TextBox()

    'SET TEXT PROPERTIES
    txtb.Name = NameOfButton
    txtb.Size = New System.Drawing.Size(Width, Height)
    txtb.Location = New System.Drawing.Point(LocationX, LocationY)
    txtb.Text = TextOfButton
    txtb.Multiline = True
    Dim myfont As New Font("Microsoft Sans Serif", 16, FontStyle.Regular)
    txtb.Font = myfont
    If ro = 0 Then txtb.ReadOnly = True

    'ADD CONTROL TO FORM1'S COLLECTION
    Form1.Panel5.Controls.Add(txtb)

    Return Nothing

End Function

Answer 1

您可能需要澄清一下。在第一个功能中，您将面板添加到面板。在第二个功能中，您将文本框添加到父面板。如果子面板位于文本框的顶部，则可能隐藏了它。如果您希望将文本框添加到子面板，则应该这样：

Form1.Panel5.Controls(Form1.Panel5.Controls.IndexOfKey(NameOfPanel)).Controls.Add(txtb)

Answer 2

添加控件

For Each name As String In li
                'addField(NameOfPanel,Width,Height,LocationX,LocationY,color White=white else gray)
                If ((i Mod 2) = 0) Then
                    addPanel("pQna" & i.ToString, 1138, 100, 3, (i * 89), "Lgray")
                Else
                    addPanel("pQna" & i.ToString, 1138, 100, 3, (i * 89), "White")
                End If
                'addField(NameOfButton,TextOfButton,Width,Height,LocationX,LocationY,readonly 0 = true)
                addField("Q" & i.ToString, name.ToString, 533, 64, 14, 14, 0, i)
                addField("A" & i.ToString, "", 553, 64, 597, 14, 1, i)
                i += 1
            Next
    Return Nothing
End Function

添加面板

Public Function addPanel(ByVal NameOfPanel As String, ByVal Width As Integer, ByVal Height As Integer, ByVal LocationX As Integer, ByVal LocationY As Integer, ByVal color As String)

    '------------------------ADDING FIELDS INTO FORM TO SIMULATE A DATAREPEATER

    'INSTANTIATE CONTROL
    Dim Panel As System.Windows.Forms.Panel

    'CREATE CONTROL
    Panel = New System.Windows.Forms.Panel()

    'SET TEXT PROPERTIES
    Panel.Name = NameOfPanel
    Panel.Size = New System.Drawing.Size(Width, Height)
    Panel.Location = New System.Drawing.Point(LocationX, LocationY)

    If color = "White" Then Panel.BackColor = Drawing.Color.White Else Panel.BackColor = Drawing.Color.LightGray

    'ADD CONTROL TO FORM1'S COLLECTION
    Form1.pQnA.Controls.Add(Panel)

    Return Nothing

End Function

在面板中添加文本框

Public Function addField(ByVal NameOfButton As String, ByVal TextOfButton As String, ByVal Width As Integer, ByVal Height As Integer, ByVal LocationX As Integer, ByVal LocationY As Integer, ByVal ro As Integer, ByVal i As Integer)
    '-----------------------FINDING PANEL

    For Each pnl As Control In Form1.pQnA.Controls
        If TypeOf pnl Is Panel Then
            Dim var As String = pnl.Name.ToString
            If pnl.Name.Equals("pQna" & i.ToString) Then


                '------------------------ADDING FIELDS INTO FORM TO SIMULATE A DATAREPEATER

                'INSTANTIATE CONTROL
                Dim txtb As System.Windows.Forms.TextBox

                'CREATE CONTROL
                txtb = New System.Windows.Forms.TextBox()

                'SET TEXT PROPERTIES
                txtb.Name = NameOfButton
                txtb.Size = New System.Drawing.Size(Width, Height)
                txtb.Location = New System.Drawing.Point(LocationX, LocationY)
                txtb.Text = TextOfButton
                txtb.Multiline = True
                Dim myfont As New Font("Microsoft Sans Serif", 16, FontStyle.Regular)
                txtb.Font = myfont
                If ro = 0 Then txtb.ReadOnly = True

                'ADD CONTROL TO FORM1'S COLLECTION
                'Form1.pQnA.Controls.Add(txtb)
                DirectCast(pnl, Panel).Controls.Add(txtb)

            End If
        End If
    Next

    Return Nothing

End Function

Answer 3

Private Sub ReInitializeComponent()

   Me.TextBoxUserId = New System.Windows.Forms.TextBox()

   Me.TextBoxUserId.Location = New System.Drawing.Point(54, 1)

   Me.TextBoxUserId.Name = "TextBoxUserId"

   Me.TextBoxUserId.Size = New System.Drawing.Size(149, 20)

   Me.TextBoxUserId.TabIndex = 13

   Me.TextBoxUserId.Text = ""

end sub

将动态文本框添加到动态添加的面板

3 个答案: