VB: 将对象添加到此时不存在的 tabcontrol 选项卡

Question

我想通过按一个按钮来添加一个选项卡控件选项卡:

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

当我打开这个标签页时，应该已经创建了一些对象，比如按钮和文本框等。我还没有为标签页找到任何类型的 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 选项卡

VB: adding object to a tabcontrol tab which doiesnt exist at this time

vb.net

tabcontrol