在面板中的面板中查找控件

Question

我在 vb.net 中有这样的表格...

有一个名为“pnlResults”的外部面板，在该面板内我还有另外 10 个面板。 如图所示，每个面板中都有带有“名称”文本的标签。

我想通过循环访问这些标签，但是我尝试了以下操作但没有成功。

For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is Label Then
        If ctrl.Name.StartsWith("lblName") Then
            'Found the labels
        End If
    End If
Next

我要查找的所有标签的名称都以“lblName”开头，然后分别在“lblname”之后购买从 1 到 10 的数字，即“lblName1”等一直到 10

我相信这是因为面板是它自己的容器，因此被排除在“me.controls”循环之外。我该如何解决这个问题？

Answer 1

使用递归

Private Sub findingAcontrol(ByRef panelx As Panel)
    For Each Control As Control In panelx.Controls
        If TypeOf Control Is Panel Then
            Me.findingAcontrol(Control)
            Exit Sub
        End If
        If Control.Name = "Button3" Then
            MessageBox.Show(Control.Text)
        End If
    Next
End Sub

添加一个按钮并调用您的函数。例如：

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    For Each Control As Control In Me.Controls
        If TypeOf Control Is Panel Then
            Me.findingAcontrol(Control)
            Exit Sub
        End If
    Next
End Sub

Answer 2

这是另一种解决方案。您的想法是正确的，因为内部面板也是您的代码在其中找不到控件的容器。

这个解决方案只是简单地进入一个级别，一旦它找到一个内部面板，就会根据你经历过多少个内部面板来找到标签。

更新：我以为这是一个网络应用程序。这是您可以使用 Windows 窗体执行的操作的示例。

Dim i As New Integer
i = 0
For Each ctr As Control In pnlResults.Controls
    If TypeOf ctr Is Panel Then
        i += 1
        Dim lblName As New Label
        lblName = ctr.Controls.Find("lblName" + i.ToString(), False)(0)
        'Do something
    End If
Next

保留 Web 应用程序的代码以防万一：

Dim i As New Integer
i = 0
For Each ctr As Control In pnlResults.Controls
    If TypeOf ctr Is Panel Then
        i += 1
        Dim lblName As New Label
        lblName = ctr.FindControl("lblName" + i.ToString())
        'Do something
    End If
Next

Answer 3

仅在面板的控件集合中搜索面板。

For Each pl As Panel In pnlResults.Controls.OfType(Of Panel)()
   For i As Integer = 1 To 10
    Dim lb As Label = pl.Controls("lblName" & i.ToString) 'is the label
   Next
Next