WinForm中如何拼接CheckBox控件名并遍历判断选中状态

你的核心需求是通过循环变量动态拼接控件名称，找到对应的CheckBox并判断选中状态——直接写Me.CBrZC1.Checked行不通，因为编译器无法识别带变量的控件名，正确做法是使用Controls.Find方法动态查找控件。

正确实现代码 #

' 循环行号3到12
For Z As Integer = 3 To 12
    ' 拼接目标控件名称
    Dim targetCtrlName As String = $"CBr{Z}C1"
    ' 在窗体控件集合中查找该名称的控件，第二个参数True表示递归查找子控件（若CheckBox在容器控件内）
    Dim foundControls() As Control = Me.Controls.Find(targetCtrlName, True)
    
    ' 检查是否找到控件且为CheckBox类型
    If foundControls.Length > 0 AndAlso TypeOf foundControls(0) Is CheckBox Then
        Dim targetCheckBox As CheckBox = CType(foundControls(0), CheckBox)
        ' 判断是否选中
        If targetCheckBox.Checked Then
            ' 执行你的操作
            ' **** dosomething
        End If
    End If
Next

原有代码的问题说明 #

1. Me.CBrZC1.Checked这一行存在错误：Z是变量，编译器无法将其解析为实际存在的控件名称，必须通过动态查找获取控件实例。
2. 遍历所有控件的方式效率较低，直接通过控件名称查找更精准高效。
3. 若CheckBox放在Panel、GroupBox等容器控件内，Controls.Find的第二个参数需设为True以递归查找所有子控件；若控件直接在窗体上，设为False即可。

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