如何在VB.NET中将仅勾选的Checkbox文本显示到Msgbox中？

方法1：逐个判断（适合少量控件） #

直接对每个Checkbox的Checked状态进行判断，收集已勾选的文本：

Dim selectedItems As New List(Of String)

' 逐个检查Checkbox状态
If PizzaCheckBox.Checked Then
    selectedItems.Add(PizzaCheckBox.Text)
End If
If IceCreamCheckBox.Checked Then
    selectedItems.Add(IceCreamCheckBox.Text)
End If
If FriesCheckBox.Checked Then
    selectedItems.Add(FriesCheckBox.Text)
End If

' 显示结果
If selectedItems.Count > 0 Then
    MsgBox(String.Join(", ", selectedItems))
Else
    MsgBox("未勾选任何选项")
End If

方法2：LINQ遍历控件（适合多控件场景） #

如果Checkbox都在同一个容器（如Form、GroupBox）内，可以用LINQ批量筛选已勾选的控件，避免重复代码：

' 遍历当前窗体上的所有Checkbox，筛选已勾选的文本
Dim selectedItems = From cb In Me.Controls.OfType(Of CheckBox)()
                    Where cb.Checked
                    Select cb.Text

' 显示结果
If selectedItems.Any() Then
    MsgBox(String.Join(", ", selectedItems))
Else
    MsgBox("未勾选任何选项")
End If

注意：如果Checkbox放在GroupBox或Panel等子容器内，需要把Me.Controls替换为对应容器的Controls集合，比如GroupBox1.Controls.OfType(Of CheckBox)()

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