Buton Rengi Değiştirme

[fehdur]

Arkadaşlar Merhaba.commandButona her tıkladığımda rengi değişsin istiyorum fakat en fazla 4 ayrı renk olacak ve renk kodlarını ben belirleyeceğim.Böyle bir şey yapılabilirmi.Yapabilecek Arkadaşa şimdiden Teşekkürler.Aşağıda paylaştığım kod da renk kodları bilinmediğinden rastgele renkler oluşuyor ve açıkçası bir işe yaramıyor.Ben bu renk kodlarına göre IF THEN kullanarak şartlı kod yazmak istiyorum.

Dim bir, iki, uc As Integer
bir = Int((255 * Rnd))
iki = Int((255 * Rnd))
uc = Int((255 * Rnd))
CommandButton1.BackColor = RGB(bir, iki, uc)

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
    Renk1 = vbYelloow 'Kendiniz renkleri uydurabilirsiniz
    Renk2 = vbYelloow 'Kendiniz renkleri uydurabilirsiniz
    Renk3 = vbYelloow 'Kendiniz renkleri uydurabilirsiniz
    Renk4 = vbYelloow 'Kendiniz renkleri uydurabilirsiniz
    Select Case CommandButton1.BackColor
        Case Renk1
            CommandButton1.BackColor = Renk2
        Case Renk2
            CommandButton1.BackColor = Renk3
        Case Renk3
            CommandButton1.BackColor = Renk4
        Case Renk4
            CommandButton1.BackColor = Renk1
    End Select
End Sub

 

[fehdur]

Kodları commandbutton1 click olayına kopyaladım ama eksik bir şeymi yapıyorum beceremedim.Mümkünse basit bir dosya üzerinde gönderebilirmisiniz?

 

[Ziynettin]

Bu şekilde bakın.

Dim a As Byte
Private Sub CommandButton1_Click()
    renk = Array(vbYellow, vbRed, vbBlue, vbGreen)
    a = a + 1
    If a > 4 Then a = 1
    CommandButton1.BackColor = renk(a - 1)
End Sub

 

[fehdur]

Sn: Ziynettin renk sadece sarıya döndü.Diğer renklere dönüşmedi

 

[Ziynettin]

Çalışma ekte.

 

[fehdur]

Sağol Arkadaşım hatayı bulmaya çalışıyorum.Umarım excel sürümüyle bir ilgisi yoktur.

 

[ÖmerFaruk]

Ekteki Örhekte ÇalışmaKitabı açılınca ve sayfa1deki CommandButtona basınca çalışan kodlar var. İnceleyin.

 

[fehdur]

Sn:NextLevel verdiğiniz kodlar dosyamda çalıştı.İlginiz için Teşekkür ederim.