Question

VB 移除LIST中选定项目

我的代码如下：
Dim xx1 As Integer
xx2 = ""
For xx1 = 0 To List1.ListCount - 1
If List1.Selected(xx1) = True Then
xx2 = xx2 + " " + List1.List(xx1)
List1.RemoveItem x1x '如果只要一个，删除不彻底
'List1.RemoveItem xx1 '如果要两个，会删除下一个没有选定的选项
End If
Next xx1
Clipboard.SetText xx2

Answer 1

LZ 可以试下一下代码，可以实现你的要求
Dim xx1 As Integer
xx2 = ""
For xx1 = List1.ListCount - 1 To 0 Step -1
If List1.Selected(xx1) = True Then
xx2 = xx2 + " " + List1.List(xx1)
List1.RemoveItem xx1
End If
Next xx1
xx2 = xx2 + " " + List1.List(xx1)