VB.NET程序开发：动态生成CheckBox/按钮后如何判断选择状态？

嘿，我来帮你搞定这个问题！动态生成的控件没法直接用checkbox1.Checked这种静态名称来引用，不过我们可以通过控件集合或者自定义标签的方式来跟踪每个CheckBox的状态，下面给你两种实用的方案：

方案1：用集合存储动态生成的CheckBox #

这种方法适合你需要为每个问题生成两个CheckBox（是/否）的场景，我们可以把创建的CheckBox都存在一个List(Of CheckBox)里，同时给每个CheckBox加Tag属性标记对应的问题编号和选项类型（是/否），这样后面判断的时候就能一一对应。

代码示例： #

首先在窗体类里定义一个全局集合，用来存动态生成的CheckBox：

Private checkBoxList As New List(Of CheckBox)()

然后在读取文件并生成CheckBox的按钮点击事件里：

Private Sub btnLoadQuestions_Click(sender As Object, e As EventArgs) Handles btnLoadQuestions.Click
    ' 先清空之前的控件和集合
    For Each cb In checkBoxList
        Me.Controls.Remove(cb)
    Next
    checkBoxList.Clear()

    ' 读取txt文件里的问题，这里假设你已经获取了问题列表questions（比如List(Of String)）
    Dim questions As New List(Of String)()
    ' 这里替换成你读取文件获取问题的逻辑
    ' 示例：从txt读取问题
    For Each line In System.IO.File.ReadAllLines("questions.txt")
        If Not String.IsNullOrWhiteSpace(line) Then
            questions.Add(line)
        End If
    Next

    ' 循环生成每个问题的是/否CheckBox
    Dim yPos As Integer = 50 ' 初始Y坐标，用来排版控件
    For i As Integer = 0 To questions.Count - 1
        ' 先添加问题标签
        Dim lblQuestion As New Label()
        lblQuestion.Text = $"问题{i+1}：{questions(i)}"
        lblQuestion.Location = New Point(20, yPos)
        lblQuestion.AutoSize = True
        Me.Controls.Add(lblQuestion)
        yPos += 30

        ' 生成“是”的CheckBox
        Dim cbYes As New CheckBox()
        cbYes.Text = "是"
        cbYes.Location = New Point(50, yPos)
        cbYes.Tag = New With {.QuestionIndex = i, .Option = "Yes"} ' 标记问题索引和选项
        checkBoxList.Add(cbYes)
        Me.Controls.Add(cbYes)

        ' 生成“否”的CheckBox
        Dim cbNo As New CheckBox()
        cbNo.Text = "否"
        cbNo.Location = New Point(150, yPos)
        cbNo.Tag = New With {.QuestionIndex = i, .Option = "No"}
        checkBoxList.Add(cbNo)
        Me.Controls.Add(cbNo)

        yPos += 40 ' 调整下一个问题的位置
    Next
End Sub

然后在需要判断状态的按钮（比如“提交”按钮）里，遍历集合判断每个CheckBox的选中状态：

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    For Each cb In checkBoxList
        Dim tagInfo = cb.Tag
        Dim questionIndex = tagInfo.QuestionIndex
        Dim optionType = tagInfo.Option

        If cb.Checked Then
            MessageBox.Show($"问题{questionIndex+1}的{optionType}被选中！")
            ' 这里可以替换成你的业务逻辑，比如把结果存入数组或数据库
        End If
    Next
End Sub

方案2：用CheckBoxList（更简洁） #

如果每个问题只需要选择“是”或“否”，用CheckBoxList会更高效，每个问题对应一个CheckBoxList，里面包含两个选项，这样判断的时候直接取选中项即可。

代码示例： #

同样先定义一个集合存储CheckBoxList：

Private checkBoxLists As New List(Of CheckBoxList)()

生成控件的逻辑：

Private Sub btnLoadQuestions_Click(sender As Object, e As EventArgs) Handles btnLoadQuestions.Click
    ' 清空旧控件
    For Each cbl In checkBoxLists
        Me.Controls.Remove(cbl)
    Next
    checkBoxLists.Clear()

    Dim questions As New List(Of String)()
    ' 读取文件逻辑同上
    For Each line In System.IO.File.ReadAllLines("questions.txt")
        If Not String.IsNullOrWhiteSpace(line) Then
            questions.Add(line)
        End If
    Next

    Dim yPos As Integer = 50
    For i As Integer = 0 To questions.Count - 1
        ' 问题标签
        Dim lblQuestion As New Label()
        lblQuestion.Text = $"问题{i+1}：{questions(i)}"
        lblQuestion.Location = New Point(20, yPos)
        lblQuestion.AutoSize = True
        Me.Controls.Add(lblQuestion)
        yPos += 30

        ' 创建CheckBoxList
        Dim cbl As New CheckBoxList()
        cbl.Items.AddRange({"是", "否"})
        cbl.Location = New Point(50, yPos)
        cbl.Tag = i ' 标记问题索引
        cbl.SelectionMode = SelectionMode.One ' 只能选一个，符合是/否的单选需求
        checkBoxLists.Add(cbl)
        Me.Controls.Add(cbl)

        yPos += 60
    Next
End Sub

判断状态的逻辑：

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    For Each cbl In checkBoxLists
        Dim questionIndex = CInt(cbl.Tag)
        If cbl.SelectedIndex <> -1 Then
            Dim selectedOption = cbl.SelectedItem.ToString()
            MessageBox.Show($"问题{questionIndex+1}选中了：{selectedOption}")
        Else
            MessageBox.Show($"问题{questionIndex+1}未选择！")
        End If
    Next
End Sub

注意事项 #

• 如果你用的是WinForms，记得动态生成的控件要添加到窗体的Controls集合里才能显示。
• 用Tag属性是个很方便的方式来绑定控件和业务数据（比如问题索引、选项类型），这样不用硬编码控件名称。
• 如果是WPF的话，思路类似，不过控件的添加方式和集合存储会略有不同，但核心都是通过集合跟踪动态控件。

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