Question

vb list1添加三条数据到list2

list1有N条把其中三条添加到list2中去。要把刚刚list1中的三条记录删除
Dim j As Integer '必须以static声明 这样变量值能保留
For i = 1 To 3
List1.ListIndex = j
j = j + 1 'j定位到下一个
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
If j >= List1.ListCount Then
j = 0 '还原j 这样下次重新打开时候仍然正常
End If
Next

Answer 1

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

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

追问

把list1全部都删除光了则为报错,每次下一条不能对应反跳多一下

追答

我没明白你的意思，你除了完成上面的要求外，还要实现什么目的？

追问

如果把list1都删除没了,最后一步判断list1为空

追答

Private Sub List1_DblClick()
    List2.AddItem List1.Text
    List1.RemoveItem List1.ListIndex
    If List1.ListCount = 0 Then
        MsgBox "没有数据了！"
        Exit Sub
    End If
End Sub

Answer 2

给你一个样例。

Answer 3

代码及注释如下：
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。