请问一个简单的有关问题，关于ListView

2013-07-01

请教一个简单的问题，关于ListView我怎么样用代码探查在这个ListView里，我选择了几个复选框啊[解决办法]Pri

请教一个简单的问题，关于ListView
我怎么样用代码探查在这个ListView里，我选择了几个复选框啊
[解决办法]

Private Sub Command1_Click()
    Dim ti As MSComctlLib.ListItem
    Dim SelNum As Long
    For Each ti In LV.ListItems
        If ti.Checked Then
            SelNum = SelNum + 1
        End If
    Next
    
    MsgBox "选择了" & SelNum & "条项目"
    
End Sub