如何把一个listview1的内容复制到另一个listview2中？

Question

Dim a As Integer
    a = List1.ListCount
    For i = 0 To a - 1
        List2.AddItem List1.List(i)
    Next

Answer 1

Dim i As Integer
Dim itm As ListItem
Dim Citm As ColumnHeader    If ListView1.View = lvwReport Then
        ListView2.View = lvwReport
        ListView2.ColumnHeaders.Clear
        For i = 1 To ListView1.ColumnHeaders.Count
            Set Citm = ListView2.ColumnHeaders.Add
            Citm = ListView1.ColumnHeaders(i)
        Next
    End If    ListView2.ListItems.Clear
    For i = 1 To ListView1.ListItems.Count
        Set itm = ListView2.ListItems.Add
        itm = ListView1.ListItems(i)
    Next
不过要是用数组控件就好了
如下处理便可以了！
    Load ListView1(1)
    ListView1(1).Visible = True
    ListView1(1).Left = ListView1(0).Left + ListView1(0).Width