复选框数据到列表框(VBNet)

Question

我的代码的问题是，当我最初选择一个特定的复选框，它工作得很好，并在列表框中显示选中的项目，但是当再次选择它创建列表框内的另一个条目，当我删除它时，我必须取消勾选相同的复选框，当我点击btnSubmit时，它已显示在列表框中。

谁能告诉我代码有什么问题，非常感谢

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
If CheckBox1.Checked Then
ListBox1.Items.Add(CheckBox1.Text)
Else
ListBox1.Items.Remove(CheckBox1.Text)
End If
If CheckBox2.Checked Then
ListBox1.Items.Add(CheckBox2.Text)
Else
ListBox1.Items.Remove(CheckBox2.Text)
End If
If CheckBox3.Checked Then
ListBox1.Items.Add(CheckBox3.Text)
Else
ListBox1.Items.Remove(CheckBox3.Text)
End If
If CheckBox4.Checked Then
ListBox1.Items.Add(CheckBox4.Text)
Else
ListBox1.Items.Remove(CheckBox4.Text)
End If
If CheckBox5.Checked Then
ListBox1.Items.Add(CheckBox5.Text)
Else
ListBox1.Items.Remove(CheckBox5.Text)
End If
If CheckBox6.Checked Then
ListBox1.Items.Add(CheckBox6.Text)
Else
ListBox1.Items.Remove(CheckBox6.Text)
End If
End Sub

Answer 1

你可以这样做:

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
ListBox1.Items.Clear
CheckObj(CheckBox1)
CheckObj(CheckBox2)
CheckObj(CheckBox3)
CheckObj(CheckBox4)
CheckObj(CheckBox5)
CheckObj(CheckBox6)
End Sub
Sub CheckObj (obj as Checkbox)
if obj.checked then ListBox1.Items.Add (obj.text)
End Sub