Question

VB中单击列表框的1个项，就复制内容到另一个列表框，并删除选中项？

Answer 1

Private Sub List1_Click()
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem (List1.ListIndex)
End Sub

追问

VB中单击列表框的1个项，就复制内容到另一个列表框，并删除选中项？而且可以连续操作此步骤，不会重新错误

追答

不会重新错误?什么意思？

追问

不好意思！打错了，应该是：VB中单击列表框的1个项，就复制内容到另一个列表框，并删除选中项？而且可以连续操作此步骤，不会出现错误，删除到其他的项？

追答

点击一次，list1中项删除后，下一条会上移，不对鼠标连续点击，会依次删除。如果怕误操作。再加一个段代码：
Private Sub List2_Click()
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem (List2.ListIndex)
End Sub
把list2中的项放回 list1中去