求VB两个列表框,选中的项目移动到另一个列表框的代码
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
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
多重随机标签