For i = 0 To CheckedListBox1.Items.Count - 1
For j = CheckedListBox1.Items.Count - 1 To i + 1 Step -1
If CheckedListBox1.Items(i) = CheckedListBox1.Items(j) Then CheckedListBox1.Items.RemoveAt(j)
Next
Next
For j = CheckedListBox1.Items.Count - 1 To i + 1 Step -1
If CheckedListBox1.Items(i) = CheckedListBox1.Items(j) Then CheckedListBox1.Items.RemoveAt(j)
Next
Next

本文介绍了一种使用VB.NET代码从CheckedListBox中移除重复项的方法。通过双重循环遍历CheckedListBox的所有项,并利用If语句检查重复项,一旦发现重复项即刻删除,确保列表中每一项的唯一性。
799

被折叠的 条评论
为什么被折叠?



