listview deki tüm kutucukları seçili hale getirme

[orcunerkek54]

herkeze iyi akşamlar.
listview1 de ilk sütunda onay kutucukları var

checkbox2yi seçtiğimde listview1 deki tüm kutucukları nasıl seçili hale getirebilirim
seçimi kaldırınca kutucuklar tekrar boş hale getirecek.
tüm arkadaşlara teşekkürler

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları kullanabilirsiniz

Private Sub CheckBox2_Change()
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Checked = CheckBox2.Value
    Next i
End Sub

 

[orcunerkek54]

çok teşekkürler syn Ferhat Pazarçevirdi kod çok güzel çalıştı elinize sağlık

 

[hsayar]

Aşağıdaki kodları kullanabilirsiniz

Private Sub CheckBox2_Change()
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Checked = CheckBox2.Value
    Next i
End Sub

Ferhat hocam çok teşekkür ederim bende biraz geliştirerek istifade ettim.

Private Sub CheckBox1_Change()
'*\ Chekbox1 seçilince lw1 deki tüm kutular işaretlenir, seçim kaldırılırsa lw1 deki seçimde kaldırılır.'##'
    With ListView1                                                                                      '##'
        For i = 1 To .ListItems.Count                                                                   '##'
            .ListItems(i).Checked = CheckBox1.Value                                                     '##'
        Next i                                                                                          '##'
    End With 'ListView1                                                                                 '##'
'*\ Kutucuklar işaretlenince iptal et yazısı, seçili değilken seç yazısı belirir...                     '##'
    With CheckBox1                                                                                      '##'
        If .Value = True Then                                                                           '##'
            .Caption = "Seçimi  İptal  Et"                                                                '##'
        Else                                                                                            '##'
            .Caption = "Tüm Sayfaları Seç"                                                              '##'
        End If                                                                                          '##'
    End With 'CheckBox1                                                                                 '##'
End Sub                                                                                                 '##'
'===========================================================================================================