Question

VB两个列表框，选中的项目移动到另一个列表框的代码是什么？

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

Answer 1

VB有两个列表框，假设VB列表框的左列表为List1，右列表为List2，代码如下：

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