VB.net 在单击按钮时添加多个控件

Question

我正在尝试制作一个用户界面，该界面会根据请求（单击按钮）自行生成

Private Sub Body_new_part_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Body_new_part_add.Click

因此，当我首先添加组合框时，没问题，它会生成框并将其放置在正确的位置等。

    Dim oTypeBox As New ComboBox
    oTypeBox.Name = "Body_type_" & oBodyPartsNumber
    oTypeBox.Location = New System.Drawing.Point(7, 78)
    Body_parts.Controls.Add(oTypeBox)

现在我想添加另一个控件，组合框旁边的文本框。

    Dim oTypeBox As New ComboBox
    oTypeBox.Name = "Body_type_" & oBodyPartsNumber
    oTypeBox.Location = New System.Drawing.Point(7, 78)
    Body_parts.Controls.Add(oTypeBox)

    Dim oTextbox As New TextBox
    oTextbox.name = "test"
    oTextbox.Location = New System.Drawing.Point(50, 78)
    Body_parts.Controls.Add(oTextbox)

这给了我这个错误。

'New' cannot be used on an interface.

我需要更改什么才能完成此操作？我需要在每个按钮点击事件上添加 +- 10 个控件。

Answer 1

试试这个

Public Class Form1
    Dim cLeft As Integer = 1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AddNewTextBox()
    End Sub
    Public Function AddNewTextBox() As System.Windows.Forms.TextBox
        Dim txt As New System.Windows.Forms.TextBox()
        Me.Controls.Add(txt)
        txt.Top = cLeft * 25
        txt.Left = 100
        txt.Text = "TextBox " & Me.cLeft.ToString
        cLeft = cLeft + 1
        Return txt
    End Function
End Class

VB.net 在单击按钮时添加多个控件

VB.net adding multiple controls on button click

vb.net

controls