窗体清除按钮实现遇阻：GroupBox内控件无法通过Me.Controls访问求简化方案

简化版代码（适用于控件直接在GroupBox下） #

如果你的TextBox和CheckBox是直接放在GroupBox中，没有多层嵌套容器，可以用这段合并后的简洁代码，比你原来的写法少一次GroupBox遍历：

Private Sub btnClearAll_Click(sender As Object, e As EventArgs) Handles btnClearAll.Click
    ' 遍历窗体上所有GroupBox
    For Each groupBox As GroupBox In Me.Controls.OfType(Of GroupBox)()
        ' 清空所有TextBox内容
        For Each txt As TextBox In groupBox.Controls.OfType(Of TextBox)()
            txt.Text = String.Empty
        Next
        ' 取消所有CheckBox勾选
        For Each chk As CheckBox In groupBox.Controls.OfType(Of CheckBox)()
            chk.Checked = False
        Next
    Next
End Sub

通用递归版代码（支持多层嵌套容器） #

如果GroupBox里还有其他容器（比如Panel、子GroupBox），上面的代码找不到深层控件，这时候用递归方法可以覆盖所有层级的控件：

' 递归遍历并重置控件的通用方法
Private Sub ResetControls(container As Control)
    For Each ctrl As Control In container.Controls
        Select Case ctrl.GetType()
            Case GetType(TextBox)
                DirectCast(ctrl, TextBox).Text = String.Empty
            Case GetType(CheckBox)
                DirectCast(ctrl, CheckBox).Checked = False
            Case Else
                ' 若当前控件是容器，继续递归处理子控件
                If ctrl.HasChildren Then
                    ResetControls(ctrl)
                End If
        End Select
    Next
End Sub

' 清除按钮点击事件
Private Sub btnClearAll_Click(sender As Object, e As EventArgs) Handles btnClearAll.Click
    ' 处理窗体上所有GroupBox内的控件
    For Each groupBox As GroupBox In Me.Controls.OfType(Of GroupBox)()
        ResetControls(groupBox)
    Next
End Sub

你原有代码无效的可能原因 #

1. 存在多层嵌套容器：如果TextBox/CheckBox放在GroupBox内的Panel或其他容器里，直接遍历groupBox.Controls.OfType(...)无法找到这些深层控件，此时递归方法能解决问题。
2. GroupBox不在Me.Controls集合中：如果GroupBox被放在窗体的其他容器（比如主Panel）里，Me.Controls.OfType(Of GroupBox)会找不到它，需要把遍历起始容器换成那个主容器（比如Me.Panel1.Controls.OfType(Of GroupBox)）。

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