1,451
社区成员
发帖
与我相关
我的任务
分享
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