ToggleButton Renk Değişimi Hk.

[petsiye]

Merhaba,

Aşağıdaki komut yardımıyla ToggleButton'a 1 kere tıkladığımda Renk Mavi'ye dönüyor, fakat biraz silik renk Mavi oluyor. Ancak ikince kere tıkladığımda İstediğim renk olan Mavi renge dönüşuyor. ToggleButton ayarlarında bunu benim istediğim tondaki Mavi renge gelmesini bulamadım. Bunu ayarlamanını bir yolu var mıdır ?

Yardımcı olabilecek kişilere şimdiden çok Teşekkür Ederim

Kullandığım Kod:

Private Sub ToggleButton498_Click()
ToggleButton498.BackColor = IIf(ToggleButton498.BackColor = _
vbBlue, vbBlue, vbBlue)
End Sub


1. Kere Tıkladığımdaki Mavi Renk görünümü





2. Kere Tıkladığımdaki Mavi Renk Görünümü

 

[tugkan]

Verdiğiniz kodda ToggleButton498.BackColor rengi maviye (vbBlue) ayarlanmış, ancak şartlı ifade hatalı bir şekilde tanımlanmış. Eğer buton rengi mavi değilse, başka bir renge geçiş yapılması bekleniyorsa, bu yapı doğru değil.

Eğer butonun arka plan rengini mavi ile değiştirmek için basit bir mantık kullanmak isterseniz, şu şekilde olmalıdır:

Private Sub ToggleButton498_Click()
    If ToggleButton498.BackColor = vbBlue Then
        ToggleButton498.BackColor = vbWhite ' Butonu beyaza çevir
    Else
        ToggleButton498.BackColor = vbBlue ' Butonu maviye çevir
    End If
End Sub

Bu kod, buton tıklandığında mavi ise beyaz yapar, beyaz ise mavi yapar.

 

[petsiye]

Sayın @tugkan , Öncelikle cevabınız için çok Teşekkür Ederim. Verdiğiniz kodu denedim ve evet sağlıklı. Bendeki kod da sağlıklıydı, o tarafta bir sorunum yok. Lakin ToogleButton Renk Tonu ile ilgili sorunum var. İlk tıklamadaki renk tonu Belli belirsiz bir mavi renk alıyor, ikinci tıkladığımda Mavinin tonu çok daha belirgi şekilde oluyor. Bu durum ToogleButton ayarlarından olabilir mi acaba diye baktım ama öyle bir ayar da göremedim. Sorunum bundan ibarettir.

Saygılarımla