VB.NET中CheckBox数据同步至ListBox的代码问题排查

你的问题根源很明确：每次点击提交按钮时，只要复选框处于勾选状态，代码就直接向ListBox添加条目，完全不检查该条目是否已经存在，所以重复勾选提交就会重复添加。而ListBox.Items.Remove()方法默认只会移除第一个匹配的项，因此有多少个重复条目，就需要点击多少次才能全部删完。

修复思路 #

1. 添加条目时：先判断ListBox中是否已经存在该文本，只有不存在时才添加
2. 移除条目时：可以一次性移除所有匹配的项（或者因为我们确保只添加一次，所以移除一次即可）
3. 额外优化：把重复的CheckBox判断逻辑改成循环，减少冗余代码

修改后的代码 #

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    ' 把所有CheckBox放到一个集合里，方便循环处理
    Dim checkBoxes As New List(Of CheckBox) From {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6}
    
    For Each cb As CheckBox In checkBoxes
        If cb.Checked Then
            ' 添加前先检查是否已存在，避免重复
            If Not ListBox1.Items.Contains(cb.Text) Then
                ListBox1.Items.Add(cb.Text)
            End If
        Else
            ' 移除所有匹配的项（如果之前不小心重复添加了也能一次清完）
            While ListBox1.Items.Contains(cb.Text)
                ListBox1.Items.Remove(cb.Text)
            End While
        End If
    Next
End Sub

代码说明 #

• 集合化处理CheckBox：避免了重复写6次几乎一样的判断逻辑，后续新增/删除CheckBox只需修改集合即可
• 添加前的存在性检查：确保每个复选框的文本只会在ListBox中出现一次，彻底解决重复添加问题
• 循环移除匹配项：即使之前有残留的重复条目，也能一次性全部移除，不用多次点击按钮

这样修改后，不管你重复勾选提交多少次，ListBox里只会保留唯一的条目；取消勾选提交时，也能一次把对应条目全部移除。

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