如何快速地得到Listview已复选数目？

Question

dim lviTest as ListItem
for each lviTest in ListView1.ListItems
    if lviTest.Checked then
        .......
    end if
next

Answer 1

Dim lngTotal As Long
Dim lstTest As ListItemlngTotal = 0
For Each lstTest in ListView1.ListItems
    If lstTest.Selected Then
        lngTotal = lngTotal + 1
    End If
NextMsgBox "共有" & lngTotal & "项被选中"