如何隐藏Form1及GroupBox1内指定的TextBox控件？

问题回顾 #

需要隐藏Form1上的3、4号TextBox，以及GroupBox1内的5、6号TextBox，现有代码无法覆盖所有目标控件。

现有代码的问题 #

1. 第一段代码的缺陷：

   • 控件名称错误：要操作的是TextBox，代码里却写了ComboBox
   • Controls.Find的searchAllChildren参数设为False，仅搜索Form1的直接子控件，无法找到GroupBox内部的5、6号TextBox
   • 未判断控件是否找到，可能触发索引越界异常

2. 第二段代码的缺陷：

   • 仅处理GroupBox内的所有TextBox，无法指定隐藏特定编号的控件
   • 逻辑是设置控件可见，与需求相反
   • 未处理Form1上的TextBox

可行解决方案 #

方案1：递归搜索所有控件（最简便的批量处理）

修改Controls.Find的参数，递归搜索所有子控件，同时修正控件名称错误：

For i = 3 To 6
    Dim controlName As String = "TextBox" & i.ToString()
    ' searchAllChildren设为True，递归搜索所有子控件
    Dim foundControls() As Control = Me.Controls.Find(controlName, True)
    ' 先判断是否找到控件，避免报错
    If foundControls.Length > 0 Then
        DirectCast(foundControls(0), TextBox).Visible = False
    End If
Next

方案2：直接访问控件名称（最直观，适合固定控件）

如果控件是通过设计器添加的，直接用控件名称赋值最可靠：

' 隐藏Form1上的3、4号
TextBox3.Visible = False
TextBox4.Visible = False

' 隐藏GroupBox1内的5、6号
TextBox5.Visible = False
TextBox6.Visible = False

方案3：递归遍历指定控件（灵活扩展）

如果需要批量处理更多控件，可以定义目标名称列表，递归遍历所有容器：

' 定义需要隐藏的控件名称列表
Dim targetControlNames As New List(Of String) From {"TextBox3", "TextBox4", "TextBox5", "TextBox6"}

' 递归遍历控件的子容器
Sub HideTargetControls(parentControl As Control)
    For Each ctl As Control In parentControl.Controls
        If targetControlNames.Contains(ctl.Name) AndAlso TypeOf ctl Is TextBox Then
            DirectCast(ctl, TextBox).Visible = False
        End If
        ' 递归处理子容器（比如GroupBox、Panel等）
        If ctl.HasChildren Then
            HideTargetControls(ctl)
        End If
    Next
End Sub

' 调用方法，从Form1开始遍历
HideTargetControls(Me)

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