Algorithm 检测列表框vb6的系列项

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

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

有两个系列的

数据包

和

书籍

。计时器将自动检测列表1系列项目，并移动到列表2书籍和数据包系列

---

关于如何实现这一点有什么想法吗？

如果我正确理解你的意思，那么这应该可以完成工作：

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

Private子项（）
我和你一样长
清单2.清除
l=0
当l

这是一个相当基本的问题。遍历列表1，删除所有以“book”或“packet”开头的项目，并将它们添加到列表2中。你到底有什么问题？