2

我是 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
4

3 回答 3

3

您可以检查以下示例，该示例完全符合您的要求：

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/

于 2012-06-07T07:32:33.930 回答
1

这是VB代码。

“Load Text1(ControlID)” 表示将Text1(controlID)加载到内存中，Text1(controlID)是一个文本框控件。

于 2012-06-07T07:58:49.543 回答
1

在设计时与设计器文件中生成的代码相同，在所需位置添加一个文本框。复制代码并粘贴到 Command1_Click() 下。

于 2012-06-07T08:02:39.987 回答