Question

vb的listbox的复选问题

list1 设置了复选框，点击command1要使list2加入 list1中被选中的

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.Text
Next

我写的这个list2中只能实现单选的复制，复选以后就出错了。
复制到list2，怎样同时把这些复制到list2里面的从list1里面删掉

Answer 1

list1.text 属性是你最后一次选中的内容
If List1.Selected(i) = True Then List2.AddItem List1.Text 的意思是：如果你list1多选了 就只会把你在LIST1里最后一次的选项重复加进去
要改成：
If List1.Selected(i) = True Then List2.AddItem List1.List(i)
试试看 可以了就选我

Answer 2

end if