Question

求VB两个列表框，选中的项目移动到另一个列表框的代码

两个列表框，两个按钮，左移，右移
按左移，右边列表框选中的项目移动到左边列表框
按右移，左边列表框选中的项目移动到右边列表框

Answer 1

Private Sub List2_Click()
List1.AddItem List2.Text
List2.RemoveItem (Selected)
End Sub
Private Sub List1_Click()
List2.AddItem List1.Text
List1.RemoveItem (Selected)
End Sub

追问

是Command1_Click()事件

追答

'不好意思，如下

Private Sub Command1_Click()
List2.AddItem List1.Text
List1.RemoveItem (Selected)
End Sub
Private Sub Command2_Click()
List1.AddItem List2.Text
List2.RemoveItem (Selected)
End Sub

Private Sub Form_Load()
Command1.Caption = ">>>>"
Command1.Enabled = False
Command2.Caption = "<<<<"
Command2.Enabled = False
End Sub

Private Sub List1_Click()
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub List2_Click()
Command2.Enabled = True
Command1.Enabled = False
End Sub

Answer 2

假设左右两个列表分别是List1、List2。
右移的代码：
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
左移的代码：
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem List2.ListIndex