Command button renk değiştirme

[zulfuernek]

Command buttona tıklayınca kırmızı olması. Daha sonra tekrar tıklayınca ise yeşil olması. Bu döngü halinde olmalı sadece yeşil ve kırmızı olmalı

saygılarımla

 

[BedriA]

Başlangıçta buton rengi yeşil olacaktır.
Uygulayınız.

Private Sub CommandButton1_Click()
  Select Case Say
        Case 1
CommandButton1.BackColor = &HC0&
Say = Say + 1
Case 2
CommandButton1.BackColor = &H4000&
Say = 1
End Select
End Sub

 

[Ömer]

Merhaba,

Alternatif:

Private Sub CommandButton1_Click()
    CommandButton1.BackColor = IIf(CommandButton1.BackColor = _
        vbRed, vbGreen, vbRed)
End Sub

.

 

[zulfuernek]

ömer bey merhaba kırmızıda iki defa tıklayınca değişiyor fakat (

 

[zulfuernek]

Tamamdır ömer bey oldu
bi yerde yanlış yazdım sanırım. Emeğinize sağlık teşekkürler.

 

[ahmedummu]

Merhaba. Aşağıdaki kod ile de çalışıyor.

If CommandButton1.BackColor = vbRed Then
CommandButton1.BackColor = vbGreen
Else
CommandButton1.BackColor = vbRed
End If