Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Do....Loop Schleife Beenden
Autor: Devrard
Datum: 17.06.11 18:29
Hallo, Ich hab vor kurzem angefangen mich ein wenig mit VBA zu beschäftigen und bin auf ein problem gestoßen welches ich nicht gelöst bekomme. Ich wär froh wenn jemand mir dabei helfen könnte. Also mein Programm soll eine PictureBox beim betätigen von "W" in einem Zeitabstand von 1 Sekunde nach oben bewegen. Sobald dann "S" gedrückt wird soll die Do...Loop Schleife abgebrochen werden. Sie tut das jedoch nicht. Wo liegt mein Fehler und wie könnte ich diesen beheben? Private Sub UserForm_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 87 Then Image1.Top = Image1.Top - 20 Do While Userform1.Image1.Top > 54 Userform1.Repaint Userform1.Image1.Top = Userform1.Image1.Top - 20 Application.Wait Now + TimeSerial(0, 0, 1) If KeyCode = 83 Then Exit Do Loop End If End Sub   Grüße Devrard

Do....Loop Schleife Beenden	1.304	Devrard	17.06.11 18:29
Re: Do....Loop Schleife Beenden	728	Preisser	17.06.11 23:00
Re: Do....Loop Schleife Beenden	746	Zardoz	17.06.11 23:09
Re: Do....Loop Schleife Beenden	684	Devrard	18.06.11 00:05
Re: Do....Loop Schleife Beenden	733	Franki	19.06.11 06:15
Re: Do....Loop Schleife Beenden	626	Devrard	19.06.11 15:34
Re: Do....Loop Schleife Beenden	706	Zardoz	19.06.11 16:19
Re: Do....Loop Schleife Beenden	659	Franki	20.06.11 04:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen