Annulation prématurée d'une boucle While

Question

J'utilise une boucle While qui boucle un certain nombre de cycles (1-576) en fonction d'une valeur entrée par un utilisateur. Il est activé par l'utilisateur en cliquant sur un bouton "Démarrer", mais je voudrais qu'il puisse être annulé en utilisant, de préférence, la touche "Echap". Cependant, lorsque la boucle est en cours, le programme ne peut reconnaître aucune pression sur une touche.

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 

Ma boucle

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

Alors que la boucle est en cours d'exécution mes n'enregistrent pas les pressions de touche, sinon ils enregistrent bien.

Answer 1

l'intérieur de votre lieu de boucle le code suivant:

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

Avez-vous pensé à utiliser BackgroundWorker pour exécuter le code de boucle while dans un thread d'arrière-plan, making sure your GUI keeps responsive (= redimensionnement/redessiner la forme et de laisser la utilisateur "atteindre" la façon dont vous avez mis en œuvre l'annulation du travail en cours) sans avoir besoin de Application.DoEvents à l'intérieur de la boucle pour "fausser" ce comportement? Si vous êtes déjà sur .NET Framework 4.0, vous pouvez essayer d'utiliser parallel programming au lieu de BackgroundWorker.

Answer 4

Il y a deux façons de le faire. Vous pouvez utiliser un thread séparé pour votre boucle ou utiliser Application.DoEvents(). L'approche du fil vous donnera généralement les meilleurs résultats.

fileté:

Vous appelez simplement StopLoop() pour dire la boucle d'arrêter de courir. Vous ne voulez pas définir loop = 0 car vous devrez utiliser la classe Interlocked pour vous assurer que la boucle a été correctement définie entre les threads.

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:

Application.DoEvents Calling() causeront tous les événements en attente sur le fil de la fenêtre à traiter. Si chaque itération de la boucle prend du temps, alors l'application apparaîtra toujours à l'utilisateur comme si elle n'était pas réactive, c'est pourquoi l'approche par thread est préférée.

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