Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wie komme ich aus einer Do-Loop Schleife mit einem ESC-Druck heraus?
Autor: Johnny_Johnson
Datum: 14.08.08 17:53
Ich habe ein Formular ("B1") bei dem sich die Hintergrundfarbe automatisch ändert. Das ganze fängt an, soblat ich die Space-Taste Drücke. Mit der Spacetaste rufe ich dann eine DO-LOOP Schleife auf. Per ESC-Druck will ich dann die Farbwechsel und das Formular ("B1") beenden. Das Problem ist aber, das beim Formular während der DO-LOOP Schleife keine Eingabe iergenteiner Art möglich ist. Kann mir da jemand Helfen??? Ich danke im Voraus.   Public Class B1 Private Sub B1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.KeyPreview = True C = 0 End Sub Private Sub B1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.Space Farben() Case Keys.Escape Me.Close() End Select End Sub Private Sub Sleep() Dim i As Integer For i = 1 To 100000000 Next End Sub Private Sub Farben() Do Me.BackColor = Color.Blue Refresh() Sleep() Refresh() Me.BackColor = Color.Red Refresh() Sleep() Refresh() Me.BackColor = Color.Green Refresh() Sleep() Refresh() Me.BackColor = Color.Red Refresh() Sleep() Refresh() Loop End Sub End Class

Wie komme ich aus einer Do-Loop Schleife mit einem ESC-Druck...	1.109	Johnny_Johnson	14.08.08 17:53
Re: Wie komme ich aus einer Do-Loop Schleife mit einem ESC-D...	758	GPM	14.08.08 18:18
Re: Wie komme ich aus einer Do-Loop Schleife mit einem ESC-D...	701	Johnny_Johnson	14.08.08 18:26
Re: Wie komme ich aus einer Do-Loop Schleife mit einem ESC-D...	902	Maas	14.08.08 18:22

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