Loop uden Do !

Du kan godt GoTo en label i et loop, MEN jeg tror ikke at det går godt..

Jo, det går fint. Programmet virker udmærket, men da jeg ikke kan debugge det, kan jeg ikke finde ud af hvorfor det egentlig virker (og dermed heller ikke ændre funktionaliteten).

Det kan godt lade sig gøre, men du skal bruge løkkerne med lidt omhu! Det virker ikke hvis du bruger \"until\", men \"while\" ser ud til at virke.
Hvis du bruger else i stedet elseif er der også
problemer med at den går ind i begge løkker.

Jeg har lavet et eksempel hvor det godt kan lade sig gøre at hoppe direkte til de forskellige labels.

Prøv det og se om det dur for dig!

Private Sub Command1_Click()
Dim i As Integer
MsgBox \"starter løkken\"

Do While i < 10

i = i + 1

If i < 3 Then
GoTo label1
ElseIf i > 2 Then
GoTo label2

End If

label1:
MsgBox \" indenfor label1, i= \" & i

label2:
i = i + 2
MsgBox \"indenfor label2, i= \" & i

Loop
End Sub


/Carsten

Hmm.. Spøjst. Det program, jeg har her, bruger faktisk netop Until, og det ser som nævnt ud til at virke. Ydermere springes der endda til labelen fra et sted uden for løkken (det er noget rigtigt griseri!).
Svaret, jeg søgte, fandt jeg i MSDN: Loop betyder slet og ret: Gå tilbage til foregående Do, og test konditionen. Man fortsætter altså som om intet var hændt, selvom man hopper ind midt i det hele.