ToggleButton ile ListBox tümünü seç

[Emine Şahin]

Merhaba arkadaşlar.
ListBox üzerinde RowSource ile alınan verilerin tümünü ToggleButton ile seçmek istiyorum.
Bu veriler filtre ettiğimde de filtre edilenler seçilebilmeli. ToggleButtona bir daha bastığımda seçim iptal olsun. Mümkün mü?

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[Emine Şahin]

Merhaba Korhan Bey.
Uygulamam neticesinde garip bir durum oluştu.
Ben daha önce tekli seçim - çoklu seçim için bir togglebutton kullanıyordum.
İkinci eklediğim togglebutton için kodlarımı uyguladım. Ortaya çıkan netice şu;
İlk butonum olan togglebutonu çoklu seçim için tıklayıp sonra hepsini seç togglebuttonuma tıklayarak hepsini seçebiliyorum.
Yani bir biri ile etkileşim içerisine girdiler.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Çoklu seçim"
ListBox1.MultiSelect = fmMultiSelectMulti
Else
ToggleButton1.Caption = "Tekli seçim"
ListBox1.MultiSelect = fmMultiSelectSingle
End If
End Sub

Private Sub ToggleButton2_Click()
Call SecimYap(ToggleButton2.Value)
If ToggleButton2 Then ToggleButton2.Caption = "Secimi İptal Et" Else ToggleButton2.Caption = "Hepsini Sec"
End Sub

Private Sub SecimYap(ByVal secim As Boolean)
Dim i As Integer
If ListBox1.ListCount < 1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = secim
Next
End Sub

 

[baydeniro]

Sayın Emine Şahin, Konuya vakıf olamadım ancak Hz. Mevlana'nın sözleri için çok teşekkür ederim.

 

[Emine Şahin]

Sayın Emine Şahin, Konuya vakıf olamadım ancak Hz. Mevlana'nın sözleri için çok teşekkür ederim.

Rica ederim Serdar Bey.
Söz ki, diyen demiş. Laf olsun torba dolsun değil. Yaşanılmadan denilen sözün, verilen nasihatin ne faydası olur ki.

Konuya gelince; togglebutton1 ve togglebutton2 diye iki adet butonum var.
İkisinin işlevi birbirinden farklı. Ama kodlar öyle bir durum oluşturdu ki birbiri ile etkileşim içerisinde. Ben dosyamı ekliyorum. Belki daha aydınlatıcı olur.