[PYTANIE] Zmiana koloru panelu po kliknieciu button

[d'emploi]

Jest button, obok niego panel

Domyslnie panel jest koloru czerwonego (wylaczony)

Po kliknieciu na button panel ma sie zmienic na zielony (wlaczony)

Kolejne klikniecie w button ma zmienic kolor penelu na czerwony (czylaczony)

 

Coś w stylu włącznika ON/OFF

 

Tak wygląda button:

 

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim key As Integer

key = (Rnd() * 2 + 1)

Select Case key

Case 1

Panel2.BackColor = Color.LimeGreen

Case 2

Panel2.BackColor = Color.Red

End Select

End Sub

Niestety zmienia kolor po 1,2 lub 3 kliknieciach. Gdzie mam błąd ?

[Sunnyline2]

select case key

To od losowania case1,case2 (mogą wylosowac sie kilka razy tak samo) ale nie jestem pewnien nie bawiłem się.. Spróbuj dodac ich więcej.

[Gość]

If panel.BackColor = Color.Red Then

panel.BackColor = Color.Green

Else

panel.BackColor = Color.Red

End If

[d'emploi]

If panel.BackColor = Color.Red Then

panel.BackColor = Color.Green

Else

panel.BackColor = Color.Red

End If

Dziękuję, działa. Do zamknięcia.