怎么判断ListView前面的CheckBox是否选中？

Question

怎么判断ListView前面的CheckBox是否选中？或者点击时触发什么事件呢？

Answer 1

With ListView1
    Lcount = 0
    For i = 1 To .ListItems.Count
        If .ListItems(i).Checked = True Then
            L = Val(.ListItems(i) & "")
            If L > 0 Then
                If ExmUpdateStudents(L, Val(Exmkey), Exm_Style) Then
                    Lcount = Lcount + 1   '总数量(序号)
                    Call XyUpdateExmDate(Exm_Style, L, ExmDate)
                Else
                    If ShowQueryInfo(8) = vbNo Then
                        Exit For
                    End If
                End If
            End If
        End If
    Next
End With

Answer 2

谢谢LCAAA，还有个问题，怎么让他选中一个之后，其他的就不可以选呢？

Answer 3

Option ExplicitPrivate Sub Form_Load()
    Me.ListView1.ListItems.Add , , "aaa"
    Me.ListView1.ListItems.Add , , "bbb"
    Me.ListView1.ListItems.Add , , "ccc"
End SubPrivate Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim objItem As MSComctlLib.ListItem
    
    For Each objItem In ListView1.ListItems
        If objItem.Checked = True And objItem.Index <> Item.Index Then
            Item.Checked = False
            Exit Sub
        End If
    Next
End Sub

Answer 4

在Form_load里加上Me.ListView1.Checkboxes = True语句，或者设计时设置Checkboxes属性。