Question

如何用VB做到把一个listbox里的所有选项移动到另一个listbox

运行环境是visual basic6.0
就选项是123吧
怎样能实现如图的功能
>是移动一项，>>是全部移动（反过来的也是）
中间的是四个命令按钮 从上到下是command1到command4 左边的是listbox1 右边的是listbox2
最好不要用专业的程序写法来写 我可能会看不懂

Answer 1

ListBox2.Items.Clear()
For i = 0 To ListBox1.Items.Count - 1
    ListBox2.Items.Add(ListBox1.Items(i))
Next

这样就将ListBox1的列表项移动到另一个ListBox2中了

这是利用For循环；提取第一个列表框ListBox1中的所有列表项，再全部加载到另一个listbox2

Answer 2

全部从List2移到List1
Dim i As Integer
For i = List2.ListCount - 1 To 0 Step -1'这个循环应该倒计数方式，否则会出界的。
List1.AddItem List2.List(i), 0'添加到索引0处，这样移动后保持秩序一致
List2.RemoveItem i
Next

从List1移动一条到List2
If List1.ListIndex >= 0 Then'首先判断一下是否有选中条目
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If

Answer 3

程序测试完美，呵呵，若满意请及时采纳，若需要注解请追问
Private Sub Command1_Click()
If List1.ListCount <> 0 And List1.SelCount = 1 Then
List2.AddItem (List1.List(List1.ListIndex))
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem (List1.List(i))
Next i
List1.Clear
End Sub

Private Sub Command3_Click()
If List2.ListCount <> 0 And List2.SelCount = 1 Then
List1.AddItem (List2.List(List2.ListIndex))
List2.RemoveItem List2.ListIndex
End If
End Sub

Private Sub Command4_Click()
For i = 0 To List2.ListCount - 1
List1.AddItem (List2.List(i))
Next i
List2.Clear
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
End Sub

追问

能注释一下么 就像楼上的

追答

Private Sub Command1_Click()
If List1.ListCount 0 And List1.SelCount = 1 Then '如果左边列表框不为空并且选中列表项
List2.AddItem (List1.List(List1.ListIndex)) '复制选中项到右侧列表框
List1.RemoveItem List1.ListIndex '删除选中项
End If
End Sub

Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1 '全部列表项
List2.AddItem (List1.List(i)) '复制到右边列表框
Next i
List1.Clear '清空左侧列表框
End Sub

Private Sub Command3_Click()
If List2.ListCount 0 And List2.SelCount = 1 Then '如果右边列表框不为空并且选中列表项 List1.AddItem (List2.List(List2.ListIndex)) '复制选中项到左侧列表框
List2.RemoveItem List2.ListIndex '删除选中项
End If
End Sub

Private Sub Command4_Click()
For i = 0 To List2.ListCount - 1 '全部列表项
List1.AddItem (List2.List(i)) '复制到左边列表框
Next i
List2.Clear '清空右侧列表框
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
End Sub