Schleife rückwärts geht nicht
13.02.2004 08:35:43
Franz W.
ich habe folgende Schleife, die bestens funktioniert:
Dim smly As Single
For smly = 15 To 195 Step 1 / 50
dlgBitteWartenJahresw.imgSmly.Left = smly: DoEvents
Next
Dabei läuft ein kleines Bildchen quer von links nach rechts über die UF. Und das tut es auch, klappt einwandfrei.
Wenn ich das Ganze allerdings umdrehe ...
Dim smly As Single
For smly = 195 To 15 Step 1 / 50
dlgBitteWartenJahresw.imgSmly.Left = smly: DoEvents
Next
... und das Bildchen von rechts nach links laufen soll, tut sich leider gar nichts mehr. Der Einzelschrittmodus zeigt: obwohl nach Verlassen der Zeile
For smly = 195 To 15 Step 1 / 50
die Variable "smly" den Wert 195 hat, wird die Zeile
dlgBitteWartenJahresw.imgSmly.Left = smly: DoEvents
einfach übersprungen. Und es geht sofort weiter mit der nächsten Zeile NACH der Schleife...!!!
Könnt ihr mir bitte sagen, woran das liegt?
Für eure Hilfe schon mal ein herzliches Dankeschön!
Grüße
Franz