ToggleButton ile ListBox Tümünü Seç

Basma düğmesi

ToggleButton ile ListBox Tümünü Seç

İleti#1)  Emine Şahin » 20 May 2012 10:02

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ü?
En son Murat OSMA tarafından, 20 May 2012 11:24 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: İlgili başlık altına taşındı...
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton ile ListBox tümünü seç

İleti#2)  Murat OSMA » 20 May 2012 11:05

ToggleButton başlığı altındaki konulara baktınız mı ? Orada vardı. ;;_)
Bu sebeple üyelerimize genelde arama yapmalarını tavsiye ediyoruz.
Çünkü; daha önce mutlaka birileri de o konu ile ilgili bir yardım istemiştir...
Aynı konuları tekrar tekrar açıpta gereksiz yer kaplamasının hiç kimseye bir faydası yok...

Bu bağlantıyı inceleyebilirsiniz; ToggleButon ile ListBox'takileri Seçme
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: ToggleButton ile ListBox tümünü seç

İleti#3)  Emine Şahin » 20 May 2012 11:20

Kusura bakmayın Murat Bey.
BAzen böyle şeyler yapıyoruz işte. Konyu inceliycem inşallah... :)
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

Cevap: ToggleButton ile ListBox Tümünü Seç

İleti#4)  Emine Şahin » 20 May 2012 11:38

Merhaba Murat 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
Emine Şahin
Siteye Alışmış
 
Adı Soyadı:Emine Şahin
Kayıt: 10 May 2012 12:58
İleti: 220
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Trabzon / Akçaabat

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: ToggleButton ile ListBox Tümünü Seç

İleti#5)  Ozan İLGÜN » 15 Nis 2013 10:03

isterseniz togglebuttonlardan bir tanesini iptal edip commandbutton oluşturup case yapısını kullanabilirsiniz. Örnek
Kod: Tümünü seç
Private Sub CommandButton1_Click()
x = x + 1
Select Case x
Case 1
....1. işleminiz...
Case 2
....2. işleminiz...
Case 3
....1. işleminiz...
Case 4
....2. işleminiz...

End Select
End Sub
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 34
İleti: 2973
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: ToggleButton ile ListBox Tümünü Seç

İleti#6)  Ozan İLGÜN » 15 Nis 2013 10:06

Kod: Tümünü seç
Private Sub CommandButton1_Click()
x = x + 1
Select Case x
Case 1
ToggleButton1.Caption = "Çoklu seçim"
ListBox1.MultiSelect = fmMultiSelectMulti
gle
End If
Case 2

ToggleButton1.Caption = "Tekli seçim"
ListBox1.MultiSelect = fmMultiSelectSin
Case 3
ToggleButton1.Caption = "Çoklu seçim"
ListBox1.MultiSelect = fmMultiSelectMulti


End If
Case 4
ToggleButton1.Caption = "Tekli seçim"
ListBox1.MultiSelect = fmMultiSelectSingle

End Select
End Sub
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 34
İleti: 2973
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe