可以。把multiselect属性设为True

解决方案 »

  1.   

    右键LISTVIEW 在其属性里选中“多重选择”即Multiselect.
      

  2.   

    有一个checkbox得属性,你试试看
    for i = 1 to ListView1.ListItems.Count
      If ListView1.ListItems(i).checked Then
      endif
    endif
      

  3.   

    ListView1.Checkboxes = True
    if listview1.ListItems(XX).Checked =true then
    endif
      

  4.   

    又慢了
    for i = 1 to ListView1.ListItems.Count
      If ListView1.ListItems(i).selected Then
            'add to array
      end if
    end if
      

  5.   

    Dim I As Integer
    For I = 1 To List1.ListCount - 1
        If List1.Selected(I) = True Then
            List1.ListIndex = I
            MsgBox List1.Text
        End If
    Next
      

  6.   

    你可以在if list1.selected(i)=true then
                 list1.listindex=i
                  在这里写入你的数组中