1

Windows 窗体，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

以及实际添加面板/文本框的代码

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
4

3 回答 3

2

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

Form1.Panel5.Controls(Form1.Panel5.Controls.IndexOfKey(NameOfPanel)).Controls.Add(txtb)
于 2013-05-23T17:03:34.643 回答
1 
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
于 2013-06-07T10:54:51.897 回答
1

添加控件

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
于 2013-05-23T17:28:34.850 回答