VB.NET如何批量操作窗体上带数字后缀的TextBox控件？

问题场景 #

窗体上有40个命名为txtProductName1至txtProductName40的文本框，希望通过循环批量清空，避免重复编写40行代码。

方法一：改进你的现有代码（适用于文本框直接在TabPage内） #

你原来的代码可能存在容器定位错误（TabControl的Controls集合存的是TabPage，文本框实际在TabPage里），同时缺少空引用判断，优化后代码如下：

Dim boxName As String
For i = 1 To 40
    boxName = $"txtProductName{i}"
    ' 从当前选中的TabPage里查找控件
    Dim targetBox As Control = TabControl2.SelectedTab.Controls(boxName)
    ' 确认找到的是文本框再清空
    If TypeOf targetBox Is TextBox Then
        DirectCast(targetBox, TextBox).Text = String.Empty
    End If
Next

注意：如果你的文本框不在当前选中的TabPage，可替换为具体的TabPage实例（如TabControl2.TabPages("TabPage1")）。

方法二：递归查找所有子控件（通用方案，支持嵌套容器） #

如果文本框嵌套在Panel、GroupBox等容器里，上面的方法会找不到。可以用递归遍历所有子控件，只要名称前缀匹配就清空：

' 递归遍历容器内所有控件，清空符合规则的文本框
Private Sub ClearProductTextBoxes(container As Control)
    For Each ctrl As Control In container.Controls
        ' 判断是否是目标文本框
        If TypeOf ctrl Is TextBox AndAlso ctrl.Name.StartsWith("txtProductName") Then
            DirectCast(ctrl, TextBox).Text = String.Empty
        End If
        ' 如果当前控件是容器，继续递归查找子控件
        If ctrl.HasChildren Then
            ClearProductTextBoxes(ctrl)
        End If
    Next
End Sub

' 调用示例（比如在按钮点击事件中）
ClearProductTextBoxes(TabControl2.SelectedTab)

这个方案不需要依赖编号的连续性，只要名称以txtProductName开头的文本框都会被处理，适用性更广。

补充说明 #

VB6的控件数组特性在VB.NET中确实没有直接保留，但通过控件命名规则结合遍历查找的方式，完全可以实现批量操作的需求，且灵活性更强。

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