VisualBasic Select Case Ampel

[Vekko]

Hey leute,

ich stehe grade etwas auf dem Schlauch und sehe meinen Fehler nicht.

Es geht um eine einfache Ampelschaltung mit den Möglichkeiten Rot, Rot-Gelb, Gelb und Grün.


Public Class Form1

Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
Select Case btnWeiter.Tag

Case btnWeiter.Tag = 0
lblRot.BackColor = Color.Red
lblGelb.BackColor = Color.Gray
lblGruen.BackColor = Color.Gray
btnWeiter.Tag = 1

Case btnWeiter.Tag = 1
lblRot.BackColor = Color.Red
lblGelb.BackColor = Color.Yellow
lblGruen.BackColor = Color.Gray
btnWeiter.Tag = 2

Case btnWeiter.Tag = 2
lblRot.BackColor = Color.Gray
lblGelb.BackColor = Color.Gray
lblGruen.BackColor = Color.Green
btnWeiter.Tag = 3

Case btnWeiter.Tag = 3
lblRot.BackColor = Color.Gray
lblGelb.BackColor = Color.Yellow
lblGruen.BackColor = Color.Gray
btnWeiter.Tag = 0

Case Else
lblRot.BackColor = Color.Gray
lblGelb.BackColor = Color.Gray
lblGruen.BackColor = Color.Gray
btnWeiter.Text = "Unsinn"
btnWeiter.BackColor = Color.Red
btnWeiter.Tag = 0

End Select


End Sub
End Class

Sobald ich das Programm starte und das erste mal den Button betätige sehe ich Rot-Gelb und danach den Case Else fall mit dem roten Button

 

[yxcv]

Hallo Vekko,

Beim "SELECT CASE" wird kein Gleichheitszeichen zum Vergleich verwendend.
*Klickst du hier :-)*

 

[miac]

So auf Anhieb würde ich sagen, daß die Zuweisung in der case Klausel das PRoblem ist:

Select btnWeiter.Tag
case 0
...
case 1
...

 

[Vekko]

Jabb danke funktioniert xD