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

[hxngz]

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

谢谢！

[hxngz]

结贴

[砸死牛顿的苹果]

'先要在设计的时候把 list1的style=1 multiselect=true
Option Explicit

Private 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 Sub

Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
End Sub

[hxngz]

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

[yachong]

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