vb.net - 如何在 VB 运行时动态添加文本框、标签和按钮？

Question

如何创建一个带有按钮 add_subjects 的表单，每次单击时添加一个 textbox 和一个相应的标签，3 个按钮 - 添加、编辑和删除，对于在 VB 运行时创建的每个 textbox。单击每个 texbox 对应的 Add _button 后，它会将 textbox 的值传递给标签。

Answer 1

像文本框这样的控件只是文本框类的一个对象。为了让窗体显示此对象，需要将其添加到窗体的 Controls 属性中。要创建一个新的文本框，您需要做的就是

Dim newTB as New Textbox
newTB.Name = "tbNew"
'Set location, size and so on if you like
Me.Controls.Add(newTB)

如果您希望您的控件能够响应事件，您需要为您希望控件的事件添加一个事件处理程序。此处理程序将事件引用到您选择的方法。

Public Class Form1

  Sub CreateTB
    Dim NewTB as New Textbox
    newTB = New Textbox
    newTB.Name = "tbNew"
    AddHandler newTB.TextChanged, AddressOf HandleTextChanged
    Me.Controls.Add(newTB)
  End Sub


  Private Sub HandleTextChanged(sender as Object, e as EventArgs)
    'Handle the event
  End Sub
End Class

如果您正在创建控件，则应确保名称是唯一的，否则您可能会遇到麻烦。

您还可以将创建的控件作为全局变量存储在数组或列表中。这样您以后就可以轻松访问它们。