vb.net在winform中查找所有子控件

Question

我有一个 win 表单应用程序，其中一个表单在不同的容器 (FlowLayoutPanels) 和 ToolStrip 控件中有许多控件。我需要在表单（和容器）中找到所有子控件。下面的递归函数在一定程度上起作用，但是在 ToolStrip、MenuStrip 和类似的控件项（按钮、标签、组合框等）中找不到子元素。

Public Sub FindChildren(ByVal parentCtrl As Control, ByRef children As List(Of Control))
  If parentCtrl.HasChildren Then
    For Each ctrl As Control In parentCtrl.Controls
      children.Add(ctrl)
      Call FindChildren(ctrl, children)
    Next ctrl
  End If
End Sub

对如何枚举 ToolStrip 项目有何建议？

Answer 1

您可以将列表更改为对象列表并使用以下代码：

Public Sub FindChildren(ByVal parentCtrl As Control, ByRef children As List(Of Object))
    If parentCtrl.HasChildren Then
        For Each ctrl As Control In parentCtrl.Controls
            If TypeOf ctrl Is ToolStrip Then
                Dim toll As ToolStrip
                toll = ctrl
                For Each item In toll.Items

                    children.Add(item)
                Next item

            End If
            children.Add(ctrl)
            Call FindChildren(ctrl, children)
        Next ctrl
    End If

End Sub