检测列表框vb6的系列项

Question

我想检测列表框的系列项并将它们移动到另一个列表框 假设列表项是

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

这里有两个系列包和书。计时器将自动检测list1系列项目并移至list2书籍和数据包系列

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