如何删除LIST控件中选中的1个或多个item?THANK

Question

如何删除LIST控件中选中的1个或多个item?THANK

Answer 1

Dim i As Long
For i = List1.ListCount - 1 To 0 Step -1
    If List1.Selected(i) Then
        List1.RemoveItem (i)
    End If
Next

Answer 2

我以前用for 循环不行，出现索引错误。现在用了do while循环，可以了。有点莫名奇妙
不过还是要谢谢超级绿豆的回复！
intii = 0
     Do While intii <= DetailList.ListCount - 1
          
       If DetailList.Selected(intii) Then   'DetailList.Selected(Intii) = True Then
            Me.DetailList.RemoveItem (intii)
            Else
            intii = intii + 1
       End If
       
     Loop