如何使用VB.NET遍历ASPX页面所有控件

你写的遍历代码失效有两个核心问题：

1. 递归条件写死了错误的过滤规则：你只在控件类型为ASP.site_master的时候才递归遍历子控件，其余所有容器控件（包括母版页里的ContentPlaceHolder、页面里的Panel、PlaceHolder、UpdatePanel、加了runat="server"的HTML容器等）全部没有递归下钻，容器内部的文本框、下拉框等控件自然完全获取不到。
2. 控件类型匹配逻辑鲁棒性太差：用c.GetType() Is GetType(目标类型)只能精确匹配完全一致的类型，只要是自定义继承的扩展控件、ASP.NET动态编译生成的派生控件都会匹配失败；用字符串对比类型名的写法更不稳定，很容易受编译生成类名规则影响失效。

另外你最开始直接遍历Me.Controls拿不到控件是ASP.NET Web Forms的控件树机制决定的：Page.Controls只返回最顶层的直接子控件，使用母版页的场景下，顶层集合里几乎只有母版页实例，你自己写的业务控件全嵌在多层容器的子节点里，不递归根本拿不到。

直接替换你原来的递归方法即可，不需要单独判断母版页类型：

''' <summary>
''' 递归遍历所有目标控件
''' </summary>
''' <param name="parent">遍历起始的父容器</param>
Private Sub CheckAllControls(parent As Control)
    For Each c As Control In parent.Controls
        ' 核心修正：只要控件包含子控件，不管是什么类型都继续下钻遍历
        If c.HasControls() Then
            CheckAllControls(c)
        End If

        ' 用TypeOf做类型判断，兼容所有派生控件，不会漏匹配
        If TypeOf c Is TextBox Then
            Dim txt As TextBox = CType(c, TextBox)
            Debug.Print($"TextBox 控件ID：{c.ID}")
            ' 这里可以加你需要的处理逻辑，比如清空、赋值等
        ElseIf TypeOf c Is DropDownList Then
            Dim ddl As DropDownList = CType(c, DropDownList)
            Debug.Print($"DropDownList 控件ID：{c.ID}")
        ElseIf TypeOf c Is CheckBox Then
            Dim cb As CheckBox = CType(c, CheckBox)
            Debug.Print($"CheckBox 控件ID：{c.ID}")
        ElseIf TypeOf c Is RadioButton Then
            Dim rb As RadioButton = CType(c, RadioButton)
            Debug.Print($"RadioButton 控件ID：{c.ID}")
        End If
    Next
End Sub

页面调用方式，比如在Page_Load事件里启动遍历：

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        ' 直接从当前Page对象开始遍历即可，自动穿透母版页、所有容器控件
        CheckAllControls(Me)
    End If
End Sub

• 修正后的方法可以自动穿透所有类型的容器控件，包括UpdatePanel、MultiView、用户控件、带runat="server"标签的HTML元素，不会出现漏遍历的问题
• 不要硬编码类型名字符串做判断，ASP.NET运行时编译生成的母版页、用户控件类名会受部署环境、编译配置影响，硬编码很容易出现本地能跑、上线失效的问题
• 如果需要把遍历到的控件收集起来统一处理，可以给方法加一个集合类型的参数，遍历到匹配控件时存入集合即可

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