檢測列表框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