[Çözüldü]ToggleButton2 ToggleButton1 Tıklamadan Pasif Kalsın

Basma düğmesi

[Çözüldü]ToggleButton2 ToggleButton1 Tıklamadan Pasif Kalsın

İleti#1)  Emine Şahin » 23 May 2012 08:41

Merhaba arkadaşlar.
2 tane toggle button kullanıyorum. Toggle button2 sadece toglebutton1 (çoklu seçim) tıklandığında aktif duruma gelsin. Kodlarım aşağıdadır...

Kod: Tümünü seç
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
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: ToggleButton2 Togglebutton1 tıklamadan pasif kalsın.

İleti#2)  Murat OSMA » 23 May 2012 09:00

Deneyiniz;
Kod: Tümünü seç
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Çoklu seçim"
        ListBox1.MultiSelect = fmMultiSelectMulti
        ToggleButton2.Enabled = True
    Else
        ToggleButton1.Caption = "Tekli seçim"
        ListBox1.MultiSelect = fmMultiSelectSingle
        ToggleButton2.Enabled = False
    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 UserForm_Initialize()
    ToggleButton2.Enabled = False
End Sub
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: ToggleButton2 ToggleButton1 Tıklamadan Pasif Kalsın

İleti#3)  Emine Şahin » 23 May 2012 09:19

Teşekkür ederim. Güzel oldu... :)
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: ToggleButton2 ToggleButton1 Tıklamadan Pasif Kalsın

İleti#4)  Murat OSMA » 23 May 2012 09:20

Rica ederim Emine Hanım, iyi günler... --)(
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

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

Forum ToggleButton

Online Kullanıcılar

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

Bumerang - Yazarkafe