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

检测列表框vb6的系列项

1 个答案: