使用For循环遍历复选框时遇到控件名称设置错误问题

问题场景 #

表单上有6个复选框，名称为chkBr1、chkBr2……chkBr6，需根据申请人数量bcnt，通过For循环将对应数量的复选框设为可见，并把文本设为对应申请人姓名。尝试的代码运行时出现循环/控件名称设置错误：

For i as integer = 1 to bcnt
   chkbr[i].visbile = true
   chkbr[1].text = applicant 1
next 

错误分析 #

1. 控件引用方式错误：VB不支持chkbr[i]这种数组式的控件引用，需通过控件名称从Controls集合中查找。
2. 属性拼写错误：visbile应为Visible。
3. 逻辑错误：文本设置固定指向第一个复选框和第一个申请人，未随循环变量i动态变化。

修正后的代码示例 #

假设申请人姓名存储在数组applicantNames中（索引与循环变量对应），正确代码如下：

For i As Integer = 1 To bcnt
    ' 按名称获取对应复选框控件
    Dim targetChk As CheckBox = DirectCast(Me.Controls("chkBr" & i), CheckBox)
    ' 避免找不到控件时触发空引用异常
    If targetChk IsNot Nothing Then
        targetChk.Visible = True
        ' 设置对应申请人姓名
        targetChk.Text = applicantNames(i)
    End If
Next

补充说明 #

• 如果applicantNames是0起始的数组，循环需调整为For i As Integer = 0 To bcnt - 1，控件名称改为"chkBr" & (i + 1)。
• 若复选框不在表单直接控件集合中（比如在Panel、GroupBox里），需替换Me.Controls为对应容器的Controls集合（如Panel1.Controls）。

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