vb控件listbox中支持多个删除。首先要设定list的multiselect属性为2-Extended然后再在代码中添加即可。
刚开始使用的是
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
i = i + 1
Next i
表面上看没什么问题,后来在使用中发现如果两项相邻,那么第二项不能被删除。如list(0),list(1),list(3),list(4)是所删除项时,list(1)和list(4)都没有被删除。
使用了另外一段代码,
Do While i < List1.ListCount
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
i = i + 1
Loop
仍然有相同的问题。在调试中发现不论是代码一还是代码二,它们的list.listcount的值都在变化,直接导致循环无法走完。
那么是否有更完善的方法呢,鉴于小弟水平太低,还未找到。希望各位大侠能够给予指导。