ToggleButton Kliğini kaldırma ?

[Gorarr]

Selamlar, userform üzerinde iki togglebutton yerleştirdim ve kayıt yapabiliyorum. Ama iki togglebutton birden tıklanmış kalmasın istiyorum. 1.tıklı ikin 2.yi tıladığımda 1.togglebuttonun tıkı kalsın istiyorum. Birde tıklanmış togglebutton çok daha belirgin yapılabilirmi (kırmızı çerçeve gibi)

Örnek dosyamda da gösterdim.

Yardımlarınız için şimdiden teşekkür ederim....

 

[Mehmet Şahin]

Merhaba,

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Font.Bold = True
ToggleButton1.ForeColor = &HFF&
ToggleButton2.Value = False
ToggleButton2.Font.Bold = False
ToggleButton2.ForeColor = &H80000012
Else
ToggleButton2.Value = True
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
ToggleButton2.Font.Bold = True
ToggleButton2.ForeColor = &HFF&
ToggleButton1.Value = False
ToggleButton1.Font.Bold = False
ToggleButton1.ForeColor = &H80000012
End If
End Sub

şeklinde deneyin. Kolay gelsin.

 

[Gorarr]

Teşekkür ederim, elinize sağlık.

Birde daha belirgin hale getirme şansımız varmı (kırmızı çerçeve gibi)

 

[Mehmet Şahin]

Merhaba,
2 no'lu mesajı güncelledim. İyi çalışmalar.

 

[Gorarr]

Teşekkür ederim, çok makbule geçti..

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.