Vb.net 设置复选框会将多行文字放入标签中

所以我有4个复选框，如果其中一个被选中，我想把这个文本放到一个标签中

我的问题是，当一个框被选中时，它只是在标签中包含该文本，而没有其他选中的文本。我希望它为选中的每个框都有一个新行，以便将新行文本放入标签中

我怎样才能让程序通过复选框，如果它们被选中，将该文本放入标签，对于下一个复选框，启动一个新行并将该文本放入其中

---

要放置在按钮单击事件下。

快速且不干净，但如果我理解您的要求，这应该会起作用

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Label1.Text = ""

    If (CheckBox1.Checked) Then
        Label1.Text &= CheckBox1.Text & vbCrLf
    End If

    If (CheckBox2.Checked) Then
        Label1.Text &= CheckBox2.Text & vbCrLf
    End If

    If (CheckBox3.Checked) Then
        Label1.Text &= CheckBox3.Text & vbCrLf
    End If

    If (CheckBox4.Checked) Then
        Label1.Text &= CheckBox4.Text & vbCrLf
    End If

    End Sub

---

将所有

复选框

放在同一容器中。在本例中，它们都包含在

Panel1

中。这将获取选中的

复选框的所有
文本
属性，并将
文本
放在
标签1.Text中。当未选择任何内容时，将抛出一个
异常
（序列不包含任何元素）

试试这个代码

[注意：使用
IDE测试

 Private Sub Common_Cheked_Change_Handler(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles _
 CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
 CheckBox3.CheckedChanged, CheckBox4.CheckedChanged

        Label1.Text = String.Empty

        Label1.Text = If(CheckBox1.Checked = True, CheckBox1.Text & vbCrLf, String.Empty) & _
         If(CheckBox2.Checked = True, CheckBox2.Text & vbCrLf, String.Empty) & _
          If(CheckBox3.Checked = True, CheckBox3.Text & vbCrLf, String.Empty) & _
           If(CheckBox4.Checked = True, CheckBox4.Text, String.Empty)

 End Sub

vbCrLf是一种回车线馈送。很像如果您想在字符串中使用制表符缩进，则需要使用vbTab。将strHello设置为String=“Hello”&vbTab&“World！”。
 Private Sub Common_Cheked_Change_Handler(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles _
 CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
 CheckBox3.CheckedChanged, CheckBox4.CheckedChanged

        Label1.Text = String.Empty

        Label1.Text = If(CheckBox1.Checked = True, CheckBox1.Text & vbCrLf, String.Empty) & _
         If(CheckBox2.Checked = True, CheckBox2.Text & vbCrLf, String.Empty) & _
          If(CheckBox3.Checked = True, CheckBox3.Text & vbCrLf, String.Empty) & _
           If(CheckBox4.Checked = True, CheckBox4.Text, String.Empty)

 End Sub