检测列表框VB6

Question

的系列项目我要检测一个列表框的一系列项目，并将其移动到另一个列表框 假设列表项

book01 
book02 
book03 
book04 
book05 
apple 
mango 
pen 
ball 
packet1 
packet2 
packet3 

这里两个系列的包和书籍。计时器会自动检测list1的一系列项目，并移动到列表2本书，包系列

Answer 1

如果我正确理解你的意思那么这应该做的工作是什么：

Private Sub MoveItems() 
    Dim l As Long 

    List2.Clear 
    l = 0 

    Do While l < List1.ListCount 
    If InStr(List1.List(l), "packet") <> 0 Then 
     MoveListItem l 
    ElseIf InStr(List1.List(l), "book") <> 0 Then 
     MoveListItem l 
    Else 
     l = l + 1 
    End If 
    Loop 

End Sub 

Private Sub MoveListItem(idx As Long) 
    List2.AddItem List1.List(idx) 
    List1.RemoveItem idx 
End Sub