Eine While-Schleife vorzeitig abbrechen

Question

Ich verwende eine While-Schleife, die eine bestimmte Anzahl von Zyklen (1-576) basierend auf einem von einem Benutzer eingegebenen Wert wiederholt. Es wird aktiviert, indem der Benutzer auf einen "Start" -Knopf klickt, aber ich möchte, dass es mit der "Escape" -Taste abgebrochen werden kann.

Wenn jedoch die Schleife läuft, kann das Programm keine Tasten drücken.

Private Sub OnGlobalKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles kh.KeyDown 

     lblInput.Text = String.Format("'{0}' Code:{1}", e.KeyCode, CInt(e.KeyCode).ToString()) 


     If e.KeyCode = CType(27, Keys) Then 
        count = 0 
        loops = 0 
     End If 
    End Sub 

Meine Schleife

Private Sub RUNLOOP() 
      While loops >= 1 
        ' my code that runs in the loop 
        loop = loop - 1 
      End While 
End Sub 

Während die Schleife meine Tastenanschläge registrieren nicht ausgeführt wird, andernfalls registrieren sie in Ordnung.

Answer 1

Innerhalb der Schleife den folgenden Code ein:

Application.DoEvents() 

Answer 2

While counter <= 10 
     ' skip remaining code in loop only if counter = 7 
     If counter = 7 Then 
      Exit While 
     End If 

     counter += 1 
     End While 

Answer 3

Haben Sie daran gedacht, BackgroundWorker mit der while-Schleife Code in einem Hintergrund-Thread ausführen, making sure your GUI keeps responsive (= Größe ändern/neu gezeichnet, die Form und lassen die Benutzer "erreichen" die Art, wie Sie die Stornierung der laufenden Arbeit implementiert haben, ohne Application.DoEvents innerhalb der Schleife zu benötigen, um dieses Verhalten "vorzutäuschen"?

Wenn Sie bereits mit .NET Framework 4.0 arbeiten, können Sie versuchen, parallel programming anstelle von BackgroundWorker zu verwenden.

Answer 4

Es gibt zwei Möglichkeiten, dies zu tun. Sie können entweder einen separaten Thread für Ihre Schleife verwenden oder Application.DoEvents() verwenden. Der Thread-Ansatz wird Ihnen im Allgemeinen die besten Ergebnisse liefern.

Threaded:

Sie rufen Sie einfach StopLoop(), um die Schleife zu sagen laufen zu stoppen. Sie möchten nicht loop = 0 setzen, da Sie dann die Interlocked-Klasse verwenden müssten, um sicherzustellen, dass die Schleife zwischen den Threads richtig eingestellt wurde.

Private Sub RunLoop() 
    Dim loop As Action = AddressOf InternalRunLoop 
    loop.BeginInvoke(null, null) 
End Sub 

Private bStopLoop As Boolean 

Private Sub InternalRunLoop() 
    While loops >= 1 And Not bStopLoop 
    ' my code that runs in the loop 
    loop = loop - 1 
    End While 
End Sub 

Private Sub StopLoop() 
    bStopLoop = True 
End Sub 

DoEvents:

Aufruf Application.DoEvents() werden alle anstehenden Ereignisse verursachen auf das Gewinde des Fensters verarbeitet werden. Wenn jede Iteration der Schleife einige Zeit in Anspruch nimmt, wird die App dem Benutzer immer noch so angezeigt, als würde sie nicht reagieren, weshalb der Ansatz mit Threads bevorzugt wird.

Private SubRunLoop() 
    While loops >= 1 And Not bStopLoop 
    ' my code that runs in the loop 
    loop = loop - 1 
    Application.DoEvents() 
    End While 
End Sub