listview多选的问题.如何把多选的Item放入一个数组呢??紧急..高分

Question

Dim strTemp() As String
    Dim i As Integer
    Dim intArrayCount   As Integer
    Dim intArrayPoint   As Integer
    
    intArrayCount = Me.List1.ListCount
    
    ReDim strTemp(intArrayCount)
    intArrayPoint = 1
    
    For i = 0 To Me.List1.ListCount - 1
        If Me.List1.Selected(i) Then
            strTemp(intArrayPoint) = Me.List1.List(i)
            intArrayPoint = intArrayPoint + 1
        End If
    Next i

Answer 1

Dim cItems As New CollectionFor i = 1 To ListView1.ListItems.Count
cItems.Add ListView1.SelectedItem
Next i