如何在Visual Basic WinForms中通过变量替换引用控件对象名称？

我明白你现在的困扰——从写Bash脚本转到VB WinForms开发，面对一堆命名有规律的RadioButton和Label，还要逐个写代码处理，不仅冗余还容易出错。别担心，有两种实用的方法能帮你批量访问这些控件的属性，彻底摆脱重复代码。

方法1：使用Controls.Find精准定位控件 #

WinForms的控件容器（比如Form、Panel）提供了Controls.Find方法，可以通过控件名称直接查找目标控件，非常适合你这种知道控件命名规律的场景。

示例代码：

For i As Integer = 1 To 3
    ' 构造RadioButton的名称并查找
    Dim targetRadio As RadioButton = Me.Controls.Find($"RadioButton{i}", True).FirstOrDefault()
    ' 构造Label的名称并查找
    Dim targetLabel As Label = Me.Controls.Find($"Label{i}", True).FirstOrDefault()
    
    ' 先判断控件是否存在，避免空引用错误
    If targetRadio IsNot Nothing AndAlso targetRadio.Checked Then
        targetLabel.Text = "You Clicked Me On"
    End If
Next

• Controls.Find的第二个参数True表示递归查找子容器（比如RadioButton放在GroupBox里也能找到）
• FirstOrDefault()会返回找到的第一个控件，找不到则返回Nothing，这样能避免找不到控件时报错

方法2：遍历控件集合筛选目标 #

如果不确定控件的具体数量，或者想一次性处理所有符合命名前缀的控件，可以遍历容器的Controls集合，通过名称前缀和类型筛选目标控件。

示例代码：

' 遍历所有控件，筛选出以RadioButton开头的控件
For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is RadioButton AndAlso ctrl.Name.StartsWith("RadioButton") Then
        Dim radioBtn As RadioButton = DirectCast(ctrl, RadioButton)
        ' 从控件名称中提取编号（比如RadioButton1提取出1）
        If Integer.TryParse(radioBtn.Name.Replace("RadioButton", ""), i) Then
            ' 根据编号找到对应的Label
            Dim targetLabel As Label = Me.Controls.Find($"Label{i}", True).FirstOrDefault()
            If radioBtn.Checked AndAlso targetLabel IsNot Nothing Then
                targetLabel.Text = "You Clicked Me On"
            End If
        End If
    End If
Next

这个方法更灵活，不管你有20个还是更多控件，都能自动处理，不需要修改循环的起止数值。

注意事项 #

• 如果控件放在Panel、GroupBox、TabPage这类子容器里，直接用Me.Controls可能找不到，这时候可以指定子容器的Controls（比如Panel1.Controls.Find(...)），或者保持Controls.Find的第二个参数为True递归查找
• 一定要先判断控件是否为Nothing再访问属性，否则容易触发NullReferenceException

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