Selecting all the Listview information using selectall function

firoz.raj · August 9th, 2009, 05:49 AM

i simple want when user click on the select all checkbox.all the checkboxes of list view should be filled with check sign.which is working fine.but problem is that when user click again on the checkbox .checksign still stay there.kindly let me know the idea any help would be highly appreciated.

Code:

Private Sub Check1_Click() 
Call SelectAll 
End Sub 
Private Function SelectAll() As Boolean 
    Dim Item As listitem 

    For Each Item In ListView1.ListItems 
        Item.Checked = True 
    Next 
  
    SelectAll = True 
End Function

gbianchi · August 9th, 2009, 10:51 AM

Hello. Just reading your code you realize something, you are cheking the items (in Item.Checked = True), but you never do the opposite (Item.Checked = false). Just replace the True with Check1.checked, and you will have what you want.