.net - VB.net 代码的一些困难

Question

我是 WinForms VB NET 编程的初学者。我需要在运行时创建文本框。

我在搜索引擎中找到了如何实现这一点的示例:

Private Sub Command1_Click()
    Dim TextControl As TextBox
    ControlID = ControlID + 1
    Load Text1(ControlID)
    Set TextControl = Text1(ControlID)
    With TextControl
        .Left = (Text1(ControlID - 1).Left + Text1(ControlID - 1).Width) + 10
        .Top = 20
        .Width = 100
        .Height = 20
        .Visible = True
    End With
End Sub

但是我对示例代码有一些困难。

有人能解释一下以下 VB NET 代码行吗？

    Load Text1(ControlID)
    Set TextControl = Text1(ControlID)
    With TextControl
    End With

Answer 1

您可以检查以下示例，它是否完全符合您的要求:

Private Sub btnCreateTextbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTextbox.Click
    Dim textbox1 As New TextBox
    textbox1.Name = "Textbox1"
    textbox1.Size = New Size(170, 20)
    textbox1.Location = New Point(167, 32)
    GroupBox1.Controls.Add(textbox1)
End Sub

寻找引用和好的解释:http://www.authorcode.com/create-dynamic-textbox-and-label-in-vb-net/