Dim CType（TabControl1.SelectedTab.Controls.Item（0），TextBox）公开文本框

Question

我有一个标签控件，它包含标签页，每个标签页中都有1个文本框。我有2个按钮，将选定的标签页的文本框更改为文本“Hello World。”

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    CType(TabControl1.SelectedTab.Controls.Item(0), TextBox).Text = "Hello World."
End Sub

当我尝试将文本框控件调暗为类顶部的文本1时，

Dim text1 As TextBox = CType(TabControl1.SelectedTab.Controls.Item(0), TextBox)

  

System.NullReferenceException未被用户代码
处理   HResult = -2147467261 Message =对象引用未设置为实例   一个对象。 Source = HelloWorld StackTrace：          在E：\ HelloWorld \ HelloWorld \ Form1.vb中的HelloWorld.frmMain..ctor（）：第6行InnerException：

我收到此错误，因为在加载表单时会创建带有文本框的标签页。

Dim tbTab = New TabPage()
Dim tbTextbox = New TextBox()

tbTab.Controls.Add(tbTextbox) 'Adds text box to new tab page
TabControl1.TabPages.Add(tbTab) 'Adds new tab page to tab control

所以我的问题是我怎样才能使text1变暗，像在课堂上一样进行宣传

Dim text1 As TextBox = CType(tcTabs.SelectedTab.Controls.Item(0), TextBox)

创建标签页后，我不会收到错误。我希望能够按下按钮

text1.Text = "Hello World."

无需在每个子上调暗text1。