Question

我创建了一个新的标签页，并为其添加了一个richtextbox：

Private Sub AddTab(ByVal ctrl As TabControl, _
                              ByVal text As String)
    If Me.InvokeRequired Then
        Me.Invoke(New AddTabDelegate(AddressOf AddTab), _
                  New Object() {ctrl, text})
        Return
    End If

    Dim NewTab As New TabPage
    NewTab.Name = "OutputTab" & outputs.Item(outputs.Count - 1)
    NewTab.Text = "Domain"
    Dim NewTextbox As New RichTextBox
    NewTextbox.Name = "OutputTextbox" & outputs.Item(outputs.Count - 1)

    ctrl.Controls.Add(NewTab)
    NewTab.Controls.Add(NewTextbox)
End Sub

现在我尝试在代码中的其他位置访问richtextbox：

Dim NewTextbox As RichTextBox
NewTextbox = Me.Controls.Item("OutputTextbox" & current_output)
debug.print(NewTextbox.name)

我收到以下错误：

A first chance exception of type 'System.NullReferenceException' occurred in program.exe

我知道名称是严格的，因为我在create方法中打印了名称，并且在我尝试访问它的代码中打印了名称字符串。

因此看起来似乎.Item()不是访问控件的正确方法。

那么如何访问动态创建的控件？

Answer 1

您正在通过名称ctrl将动态控件添加到容器中，然后在表单容器中查找它。您可以使用Me.FindControl()递归搜索，但在您的情况下，因为您知道具有RichTextBox的容器，所以执行如下所示的操作会更有效。

尝试

Dim NewTextbox As RichTextBox
Dim NewTab as TabPage
NewTab = ctrl.Controls.Item("OutputTab" & current_output)
NewTextbox = newTab.Controls.Item("OutputTextbox" & current_output)

debug.print(NewTextbox.name)

在VB .NET中查找动态添加的控件

1 个答案: