当你删除了一个Item的时候,相应的Index做出了调整,所以你的方法有问题。你可以重新遍历

解决方案 »

  1.   

    For i =.ListCount-1 To 1  step -1
        If (...) Then
          .RemoveItem i 
        End If
    Next i
      

  2.   

    do while ListBox.ListCount>=0
        ListBox.RemoveItem 0
    loop删除全部列表项就这样删!!
      

  3.   

    do while .ListCount>=0
        .RemoveItem 0
    Next i删除全部列表项
      

  4.   

    如果删除全部用clear就可以了
    他需要的是指定的删除
      

  5.   

    Begin:
    For i = 1 To .ListCount
        If (...) Then
          .RemoveItem i - 1     
          goto Begin
        End If
    Next i
      

  6.   

    For i =.ListCount-1 To 1  step -1
        If (...) Then
          .RemoveItem i 
        End If
    Next i