vb中 的List1.RemoveItem 怎么用呀

Question

如何移除选中 index
怎样在list1 移到list2 中的东西不重复呀 在移list1的不能到list2中

Answer 1

'移除
Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
End Sub

'移动
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To List2.ListCount - 1
If List2.List(i) = List1.List(List1.ListIndex) Then
MsgBox "重复了", vbCritical
Exit Sub

End If
Next i
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End Sub本回答被提问者采纳