如何在一个标签中显示多个复选框

时间:2016-10-27 16:55:14

标签: vb.net

任何人都知道如何在vb.net中显示签入一个标签的多个复选框,例如hoby复选框。如果我检查3 hoby,我想要3个hoby节目,如烹饪,足球,看。请帮帮我。我需要了解更多有关vb的信息 但如果我只选择2个爱好,标签只会显示2个爱好

1 个答案:

答案 0 :(得分:2)

您必须遍历表单上的CheckBoxes,如果选中它们,请将它们添加到列表中。然后将您的列表一起加入一个字符串:

Dim checkedItems As New List(Of String)
For Each cb As CheckBox In Me.Controls.OfType(Of CheckBox)()
  If cb.Checked Then
    checkedItems.Add(cb.Text)
  End If
Next
YourLabel.Text = String.Join(", ", checkedItems.ToArray)

如果CheckBox在面板内,请将“Me”替换为面板名称。

您也可以在一行中执行上述操作:

YourLabel.Text = String.Join(", ", Me.Controls.OfType(Of CheckBox) _
                                              .Where(Function(x) x.Checked) _
                                              .Select(Function(x) x.Text))