VB.NET WinForm如何基于反射获取项目所有窗体的全部按钮列表

原提问内容 #

我有如下用于在VB.NET中获取项目内所有窗体的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

    Dim types As Type() = myAssembly.GetTypes()
    For Each t As Type In types
        If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" Then
            MessageBox.Show(t.Name)
        End If
    Next
End Sub

请问如何基于上述代码，获取该项目所有窗体中包含的全部按钮列表？

实现思路 #

不改动原有遍历程序集的整体框架，仅在原有逻辑上补充两个核心能力：

• 优化窗体类型判断规则，兼容自定义继承链的窗体，避免漏检
• 对匹配到的可实例化窗体，递归遍历所有嵌套控件，筛选出类型为System.Windows.Forms.Button的控件，覆盖嵌套在各类容器内的按钮

改造后完整可运行代码 #

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 获取当前执行的程序集
    Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
    Dim types As Type() = myAssembly.GetTypes()

    For Each t As Type In types
        ' 替换原有硬字符串基类判断，自动沿继承链识别所有Form派生类型
        If GetType(System.Windows.Forms.Form).IsAssignableFrom(t) Then
            ' 跳过无法实例化的抽象类、接口类
            If t.IsAbstract Or t.IsInterface Then Continue For

            Try
                ' 实例化当前匹配到的窗体
                Dim formInstance As System.Windows.Forms.Form = CType(Activator.CreateInstance(t), System.Windows.Forms.Form)
                ' 递归获取该窗体下所有层级的按钮
                Dim allButtons As List(Of System.Windows.Forms.Button) = GetNestedButtons(formInstance.Controls)
                
                ' 逐按钮输出信息，可根据需求将结果存入表格、集合做后续处理
                For Each btn In allButtons
                    MessageBox.Show($"窗体：{t.Name} | 按钮名：{btn.Name} | 按钮文本：{btn.Text}")
                Next
            Catch ex As Exception
                ' 捕获实例化异常，避免单个窗体加载失败中断整体流程
                MessageBox.Show($"窗体{t.Name} 读取失败：{ex.Message}")
            End Try
        End If
    Next
End Sub

' 辅助方法：递归遍历控件集合，提取所有层级的按钮
Private Function GetNestedButtons(controlCollection As Control.ControlCollection) As List(Of System.Windows.Forms.Button)
    Dim resultList As New List(Of System.Windows.Forms.Button)()
    For Each ctrl As Control In controlCollection
        ' 匹配到按钮直接加入结果
        If TypeOf ctrl Is System.Windows.Forms.Button Then
            resultList.Add(CType(ctrl, System.Windows.Forms.Button))
        End If
        ' 若当前控件包含子控件，递归向下遍历
        If ctrl.HasChildren Then
            resultList.AddRange(GetNestedButtons(ctrl.Controls))
        End If
    Next
    Return resultList
End Function

实操注意事项 #

• 原代码的字符串匹配基类逻辑存在明显缺陷：如果项目中存在自定义基类窗体（例如自定义BaseForm继承自Form，其他业务窗体再继承BaseForm），原代码的判断逻辑会完全漏检这类窗体，改用IsAssignableFrom方法可以沿着类的继承链做准确判断，从根源上解决漏检问题。
• 控件遍历必须做递归处理：如果仅读取窗体第一层的Controls集合，会漏掉所有嵌套在Panel、GroupBox、TabPage、SplitContainer等容器内的按钮，导致最终结果不完整。
• 窗体实例化环节要加异常捕获：部分窗体的构造函数需要传入固定参数，直接调用无参的Activator.CreateInstance会触发构造错误，补充异常捕获可以避免单个窗体的问题导致整个遍历流程崩溃。

内容的提问来源于stack exchange，提问作者Hamada