VB 如何将ListBox1 中选中的项目移动到 ListBox2中？

来源：百度知道 编辑：UC知道 时间：2024/05/14 22:43:36
ListBox1 可以选中多个 项目，我需要点一个键，就把ListBox1 中选中的项目移动到 ListBox2中
这样的代码怎么写？

List1.SelCount 返回在 ListBox 控件中被选中项的数量
List1.Selected(index) [= boolean] 返回或设置在 ListBox 控件中的一个项的选择状态

用循环遍历所有项目，判断Selected状态。给你个小例子变量定义我就省了：
For i = 0 To List1.ListCount
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
End

jschh:

For i = 0 To List1.ListCount '这里是List1.ListCount-1吧！
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
End

楼主没有要求listbox1中的项目移动到listbox2中还保持之前的顺序是不是，如果是的话，我就提供以下代码，但是要加一个按纽，2个列表框
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To List1.SelCount
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
Next i
End Sub