vb list1添加三条数据到list2

下面是在List1这个列表框，双击你要转移到list2里面的数据，那么数据添加到list2，list1里面的相关数据自动删除！

Private Sub List1_DblClick()
    List2.AddItem List1.Text
    List1.RemoveItem List1.ListIndex
End Sub

给你一个样例。

代码及注释如下：
Private Sub List1_DblClick()'双击list1时触发事件
List2.AddItem List1.Text'list2中增加当前选中的list1的文本
List1.RemoveItem List1.ListIndex'list1中删除list1当前选中的条目
End Sub

此例中用到的RemoveItem相关知识：
object.RemoveItem index

RemoveItem 方法的语法包含下列部分：

部分 描述

object
必需的。一个对象表达式，其值为“应用于”列表中的一个对象。

index
必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox
中的首项或 MS Flex Grid 控件中的首行，index = 0。