Tach... Ich habe ein Problem mit der Do-Schleife in VB.
Die Do-Schleife soll 20 mal durchlaufen, das Bild
also 20 mal im Bogen nach unten rechts schieben.
Mit einer For-Schleife geht es, im folgenden Code
passiert's aber nur einmal..
Alles anzeigen
Bestimmt weiß einer bescheid...
Die Do-Schleife soll 20 mal durchlaufen, das Bild
also 20 mal im Bogen nach unten rechts schieben.
Mit einer For-Schleife geht es, im folgenden Code
passiert's aber nur einmal..
Quellcode
- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
- Private Sub Command1_Click()
- i = 1
- Do
- For y = 1 To 5
- Sleep 10
- Kugel.Move Kugel.Left + 2, Kugel.Top + 0
- Next y
- For y = 1 To 5
- Sleep 10
- Kugel.Move Kugel.Left + 2, Kugel.Top + 2
- Next y
- For y = 1 To 5
- Sleep 10
- Kugel.Move Kugel.Left + 0, Kugel.Top + 2
- Next y
- i = i + 1
- Loop Until i < 21
- End Sub
Bestimmt weiß einer bescheid...
/* no comment */