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

[slw8449]

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

[LCAAA]

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

[slw8449]

[Quote=引用 1 楼 lcaaa 的回复:]

With ListView1
Lcount = 0
For i = 1 To .ListItems.Count
If .ListItems(i).Checked = True Then
L = Val(.ListItems(i) & "")
If L > 0 Then
……
[/Quote]
那我想把选中的内容放到文本框中呢？麻烦再讲下，谢谢！

[slw8449]

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

[lyserver]

Option Explicit

Private Sub Form_Load()
    Me.ListView1.ListItems.Add , , "aaa"
    Me.ListView1.ListItems.Add , , "bbb"
    Me.ListView1.ListItems.Add , , "ccc"
End Sub

Private 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

[lyserver]

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

[slw8449]

谢谢你们了！问题解决了。

[LCAAA]

昨天有事出去了。楼主按照5楼弄就可以。

[nogospel00]

不错。5楼回答的很正确了