[Çözüldü]  Açık-Kapalı ToggleButton Sorunu

Basma düğmesi

Açık-Kapalı ToggleButton Sorunu

İleti#1)  ajan83 » 22 Nis 2014 10:16

Merhaba,

2 Adet ToggleButton mevcut Userform'da

Birincisi AÇIK - Value.True - Locked.True - Enabled.False olarak tanımlı.
İkincisi KAPALI - Value.False - Locked.False - Enabled.True olarak tanımlı.

Benim isteğim birine tıklayınca diğeri aktif olsun. Ancak kodlarda hep bir çakılma oluyor, ne denediysem başaramadım.

En son burada kaldım;

Kod: Tümünü seç
Private Sub ToggleButton1_Click()
If ToggleButton2.Value = False Then
ToggleButton1.Value = True
ToogleButton2.Locked = True
ToogleButton2.Enabled = False
Else
ToggleButton1.Value = False
ToggleButton1.Locked = False
End If
End Sub

Private Sub ToggleButton2_Click()
If ToggleButton1.Value = False Then
ToggleButton2.Value = True
ToogleButton1.Locked = True
ToogleButton1.Enabled = False
Else
ToggleButton2.Value = False
ToggleButton2.Locked = False

End If

End Sub
En son Murat OSMA tarafından, 23 Nis 2014 11:35 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Ön ek seçildi.
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#2)  Murat OSMA » 22 Nis 2014 12:06

Amacınızı anlamadım ama bu kodları bir deneyiniz;
Kod: Tümünü seç
Private Sub ToggleButton1_Click()
    If 
ToggleButton1.Value True Then
        ToggleButton2
.Enabled True
        ToggleButton2
.Locked False
            
Else
        
ToggleButton2.Enabled False
        ToggleButton2
.Locked False
    End 
If
End Sub

Private Sub ToggleButton2_Click()
    If 
ToggleButton2.Value True Then
        ToggleButton1
.Enabled True
        ToggleButton1
.Locked False
            
Else
        
ToggleButton1.Enabled False
        ToggleButton1
.Locked False
    End 
If
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: Açık-Kapalı ToggleButton Sorunu

İleti#3)  ajan83 » 22 Nis 2014 16:13

Sizin göndermiş olduğunuz kodda KAPALI butonuna basınca AÇIK hala basılı kalıyor, ancak aktif hale geliyor.
AÇIK butonuna basınca KAPALI pasif duruma geçiyor. İkinci aşama tamam gibi.

Kısaca özetlemem gerekirse;

AÇIK butonuna basınca KAPALI basılı olmasın.
KAPALI butonuna basınca AÇIK basılı olmasın.

AÇIK butonu basılı iken aktif olmasın ki sadece; KAPALI butonu ile aktif hale gelsin.
KAPALI butonu basılı iken aktif olmasın ki sadece; AÇIK butonu ile aktif hale gelsin.
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#4)  Enes Recep BAĞ » 22 Nis 2014 16:33

Kod: Tümünü seç
Private Sub ToggleButton1_Click()
    If 
ToggleButton1.Value True Then
        ToggleButton2
.Enabled True
        ToggleButton1
.Enabled False
            
Else
        
ToggleButton2.Enabled False
End 
If
End Sub

Private Sub ToggleButton2_Click()
    If 
ToggleButton2.Value True Then
        ToggleButton1
.Enabled True
        ToggleButton2
.Enabled False
            
Else
        
ToggleButton2.Enabled False
        ToggleButton1
.Enabled True
        End 
If
End Sub


Bunları CommandButtonlar ile yapman daha doğru olacaktır.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
If 
CommandButton1.Value True Then
CommandButton1
.Enabled True
CommandButton1
.Enabled False
    
Else
CommandButton1.Enabled False
CommandButton2
.Enabled True
End 
If
End Sub
Private Sub CommandButton2_Click()
If 
CommandButton2.Value True Then
CommandButton2
.Enabled True
CommandButton2
.Enabled False
    
Else
CommandButton1.Enabled True
CommandButton2
.Enabled False
End 
If
End Sub

Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8278
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

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

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#5)  ajan83 » 22 Nis 2014 16:50

Enes Bey, sizin gönderdiğiniz koda maalesef olmadı.

ToggleButtonu tercih etmemin sebebi seçince basılı kalıyor olması.

Eğer bir çözüme ulaşamaz isem Combobox kullanmayı deneyeceğim artık. :(
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#6)  Enes Recep BAĞ » 22 Nis 2014 18:09

Olması gerekeni bir örnek ekleyerek adım adım anlatabilir misiniz?
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8278
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#7)  Ozan İLGÜN » 22 Nis 2014 18:47

Ekte bulunan örneği sizin için hazırladım. Dener misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

Resim
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: 2974
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#8)  ajan83 » 22 Nis 2014 20:57

Ozan İLGÜN yazdı:Ekte bulunan örneği sizin için hazırladım. Dener misiniz?


Dosyayı indirme yetkim yok. Kod olarak paylaşmanız mümkün müdür?
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#9)  ajan83 » 22 Nis 2014 21:14

Enes Recep BAĞ yazdı:Olması gerekeni bir örnek ekleyerek adım adım anlatabilir misiniz?


İki toggle butondan biri basılı iken diğeri basılı olmasın.

Örneğin ;

İki option butondan biri seçili iken diğerinin seçili olmaması gibi.
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Cevap: Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#10)  Enes Recep BAĞ » 22 Nis 2014 21:47

ajan83 yazdı:İki option butondan biri seçili iken diğerinin seçili olmaması gibi.

Benim yaptığımda öyle değil mi? Neyse sanırım ben yanlış anlıyorum sizi.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8278
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#11)  Enes Recep BAĞ » 23 Nis 2014 08:04

Bu kodları dener misiniz?
Kod: Tümünü seç
Private Sub UserForm_Initialize()
ToggleButton2.Enabled = False
End Sub


Kod: Tümünü seç
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True And ToggleButton2.Value = False Then ToggleButton1.Value = False: Exit Sub
ToggleButton2.Enabled = True
ToggleButton1.Enabled = False
End Sub


Kod: Tümünü seç
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True And ToggleButton1.Value = False Then ToggleButton2.Value = False: Exit Sub
ToggleButton1.Enabled = True
ToggleButton2.Enabled = False
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8278
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#12)  ajan83 » 23 Nis 2014 11:10

Enes Bey,

Teşekkür ederim. Tam istediğim gibi oldu.
Kullanıcı avatarı
ajan83
Siteye Alışmış
 
Adı Soyadı:Acun CAN
Kayıt: 04 Nis 2014 13:07
Konum: İZMİR
Meslek: SİGORTA
Yaş: 37
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR / KARŞIYAKA

Cevap: Açık-Kapalı ToggleButton Sorunu

İleti#13)  Enes Recep BAĞ » 23 Nis 2014 15:39

Rica ederim ama hâlâ ısrarla CommandButton tavsiye ederim. :)
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8278
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA


Forum ToggleButton

Online Kullanıcılar

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

Bumerang - Yazarkafe