How do you display a count of items CHECKED in a LISTVIEW

[talenx]

Hello all,
i have a problem...
i can't seem to find any information on how to get a LISTVIEW control to return a record count for items that are CHECKED.
kind of like the listitems.count method, but with only those that have a the CHECKED option = true

look forward to hearung from someone.
thanks
talenx

 

[tangram]

Private Sub Command1_Click()

MsgBox ListViewCheckCount(Form1.ListView1) & " Items Checked", vbOKOnly + vbInformation, "WHO DA MAN!"

End Sub

Public Function ListViewCheckCount(ByRef oListView As ListView) As Long
Dim oListItem As ListItem
Dim lCount As Long

For Each oListItem In oListView.ListItems
lCount = IIf(oListItem.Checked, lCount + 1, lCount)
Next

ListViewCheckCount = lCount

End Function

 

[talenx]

thank you so very much.... i think i spent over 3 days looking onthe net for something that would work.

by the way would you by chance know how to select ALL records in a LISTVIEW control?


thanks again,
talenx

 

[tangram]

Same basic loop with....

oListItem.Checked = true

in place of the

lCount = IIf(oListItem.Checked, lCount + 1, lCount)

statement would check every item in the list.

oListItem.Selected = True

would select (highlight) every item in the list