Question

我想通过按下按钮添加tabcontrol选项卡：

    Dim inp As String
    inp = TextBox6.Text
    TabControl2.TabPages.Add(inp)

当我打开这个标签页时，应该已经创建了一个对象，如按钮和文本框等。我还没有为tabpage找到任何类型的onload事件，所以我试着用以下内容添加：

TabPage8.Controls.Add(New Button())

tabpage8将是新创建的标签页的名称，但是像vb已告诉我的那样，我无法将对象添加到当时不存在的标签页。

我有什么方法可以做到这一点，或者你有任何其他想法可以帮助我吗？

Answer 1

你的代码很接近。请尝试以下方法：

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      TabControl2.TabPages.Add("Test")
      Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1)
      Dim b = New Button()
      b.Text = "My Button"
      tp.Controls.Add(b)

      AddHandler b.Click, AddressOf MyButton_Click
   End Sub

   Private Sub MyButton_Click(sender As Object, e As EventArgs)
      MessageBox.Show("MyButton clicked")
   End Sub

此代码抓取添加的最后一页并为其添加一个按钮。它还根据需要配置按钮并添加事件处理程序。

VB：将对象添加到tabcontrol选项卡，此选项存在于此时

1 个答案: