vb6.0有人可以给我一个代码

Question

是否可以在列表视图中堆叠项目？我有两个列表视图，第一个包含来自MS访问的数据，当我点击列表项时，点击的项目将被转移到第二个列表视图但是当我再次点击相同的项目时，该项目可能会添加？

Answer 1

此示例假定您的List1

上有两个ListBox控件（List2和Form1）

Private Sub Form_Load()

    Dim count As Integer

    Do Until count > 20  ' add items to List1
        Me.List1.AddItem (Format$(count))
        count = count + 1
    Loop

End Sub

Private Sub List1_Click()
    ' when List1 is clicked add the item from List1 to List2
    Me.List2.AddItem Me.List1.Text
End Sub