vb6.0中两个列表框,单击其中一个里的内容，则显示在另外一个列表框中

Question

急
单击其中一个里的内容，则复制在另外一个列表框中

Answer 1

参考如下代码:
Private Sub Form_Load()
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List1.AddItem "Soccer"
List1.AddItem "Tennis"
List1.AddItem "Basketball"
End Sub

Private Sub List1_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加新元素
List2.AddItem List1.Text
'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub

参考资料：http://hi.baidu.com/minaxinxin1/blog/item/48f2ad5192dcca5b1138c210.html

本回答被提问者采纳

Answer 2

参考如下代码:
Private Sub Form_Load()
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List1.AddItem "Soccer"
List1.AddItem "Tennis"
List1.AddItem "Basketball"
End Sub

Private Sub List1_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加新元素
List2.AddItem List1.Text
'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub

参考资料：http://hi.baidu.com/minaxinxin1/blog/item/48f2ad5192dcca5b1138c210.html

本回答被提问者采纳