VB 如何将listbox 控件中的被选择项删除？

Question

1.被选项为一项？
2.被选项为相隔的几项？谢谢！

Answer 1

'先要在设计的时候把 list1的style=1  multiselect=true
Option ExplicitPrivate Sub Command1_Click()
  Dim x As Long
  With List1
  For x = .ListCount - 1 To 0 Step -1
    If .Selected(x) Then .RemoveItem x
  Next
  End With
End SubPrivate Sub Form_Load()
  List1.AddItem "a"
  List1.AddItem "b"
  List1.AddItem "c"
  List1.AddItem "d"
End Sub

Answer 2

ayalicer，谢谢！我也刚搞出来！Private Sub CmdDeleteToolPaths_Click()
    Dim i As Integer
Begin:
    For i = 0 To LstToolPaths.ListCount - 1
        If LstToolPaths.Selected(i) = True Then
            LstToolPaths.RemoveItem i
            GoTo Begin:
        End If
    Next
End Sub

Answer 3

hxngz(),你的方法用了goto,多多少少是个犯忌的事情
还有就是重复循环,效率没有ayalicer的高
还有,要给分才算结贴了