For next loop

[iarwain II]

[VB.NET 05] For next loop

Hallo,
Ik ben een cursus VB.NET 05 aan het volgen en stuit op het volgende probleem.

Ik heb een Form met 3 labels.
Een Next Button.
En via het klikken op de Next Button moet de BackColor van de Labels 1 voor 1 veranderen naar geel.
Als de BackColor van label2 veranderd naar geel moet die van label1 weer terug veranderen naar normaal..

Iemand een idee hoe ik dit moet doen ???

Gr.

 

[bn2vs]

Mss iets in deze aard?

for x as integer = 0 to 2

for each lbl as label in me.controls
lbl.BackColor = colors.white
next lbl

ctype(me.controls("label-" & x.tosting), label).BackColor = colors.yellow

(een of andere functie?)

next x

 

[That Guy]

of iets wat makkelijker *kuch* is (maar ja, omslachtig):

if lbl1.BackColor = colors.yellow then
  lbl2.BackColor = colors.yellow
  lbl1.BackColor = colors.white
elseif lbl2.BackColor = colors.yellow
  lbl3.BackColor = colors.yellow
  lbl2.BackColor = colors.white
elseif lbl3.backColor = colors.yellow
  lbl1.BackColor = colors.yellow
  lbl3.BackColor = colors.white
end if

etc.

 

[iarwain II]

for x as integer = 0 to 2

for each lbl as label in me.controls
lbl.BackColor = colors.white
next lbl

ctype(me.controls("label-" & x.tosting), label).BackColor = colors.yellow

(een of andere functie?)

next x

if lbl1.BackColor = colors.yellow then
  lbl2.BackColor = colors.yellow
  lbl1.BackColor = colors.white
elseif lbl2.BackColor = colors.yellow
  lbl3.BackColor = colors.yellow
  lbl2.BackColor = colors.white
elseif lbl3.backColor = colors.yellow
  lbl1.BackColor = colors.yellow
  lbl3.BackColor = colors.white
end if

etc.

Helaas beide codes werken niet..
Ik ben er inmiddels via vragen wel achter dat het een select case statement moet worden maar ook dt weet ik helaas niet te te passen..
Misschien dat er nu iemand is die mij kan helpen ??

 

[iarwain II]

Is al opgelost ik ben er al achter, toch dank voor de moeite

        Static Stap As Integer
        Static Lus As Integer

        Select Case Stap
            Case 0
                Stap = 1
                Label1.BackColor = Color.Yellow
                Label2.BackColor = Color.Yellow
            Case 1
                Stap = 2
                Label1.BackColor = BackColor
                Label2.BackColor = BackColor
                Label3.BackColor = Color.Yellow
            Case 2
                Stap = 3
                Label3.BackColor = BackColor
                Label4.BackColor = Color.Yellow
            Case 3
                Stap = 1
                Label4.BackColor = BackColor
                Label1.BackColor = Color.Yellow
                Label2.BackColor = Color.Yellow
                Label2.Text = "i = " & Lus
                Lus = Lus + 1
                If Lus = 5 Then Close()
        End Select

Moet hier en daar nog wat worden aangepast maar klopt in grote lijnen