VB.NET 迭代控制容器

Question

如何循环访问容器内的所有控件以及包含控件的容器中的所有控件，等等。

Form
-Panel
--Control
--Tab
----Control
----Control
--Tab
----Control

以下仅检索 -Panel，而不检索任何其他控件

For Each cntrl As Control In Me.Controls

Next

如何在 For Each 循环中检索所有控件，而无需为堆栈中的每个级别使用 If/Then？

编辑：

Dim ctl As Control = Me
Do
    ctl = Me.GetNextControl(ctl, True)
    'Do whatever you have to ctl
Loop Until ctl Is Nothing

这是迄今为止我发现的最好的方法。

Answer 1

您必须定义一个方法来递归遍历容器内的容器。像这样的：

 Dim _list As New List(Of Control)
 Public Sub GetChilds(container As Control)
        For Each child As Control In container.Controls
            _list.Add(child)
            If (child.HasChildren) Then
                GetChilds(child)
            End If
        Next
 End Sub

调用这个方法：

 list=new List(Of Control)
  GetChilds(Me)
  For Each cntrl As Control In _list
    ....
  Next