Comment casser une boucle avec un seul clic

Je suis en utilisant VB.NET et j'ai:

un Start bouton
un Stop bouton
un While boucle

Lorsque le Start bouton est pressé, le While la boucle commence. Je veux arrêter la boucle lorsque le Stop le bouton est pressé.

J'avais essayé d'utiliser Applications.DoEvents, mais la boucle s'arrête lorsque la Stop bouton est pressé deux fois.

Ci-dessous mon code à l'aide de Applications.DoEvents

Dim stopclick As Boolean = False

Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
    btnForward.Enabled = False
    btnStop.Enabled = True
    While 
        ' Perform the while statements
        If stopclick = True Then
            stopclick = False
            Application.DoEvents()
            Exit While
        End If
    End While
End Sub

Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
    stopClick = True
End Sub

Je n'ai utilisé Application.DoEvents mal?
Quelles sont les autres options en plus Application.DoEvents? Comment puis-je arrêter la boucle avec un seul Stop cliquez sur le bouton?

OriginalL'auteur user2150279 | 2013-08-20

3

Vous avez besoin pour mettre l'appel à Application.DoEvents à l'extérieur de votre If déclaration, comme ceci:
```
While True
    Application.DoEvents()
    ' Perform the while statements
    If stopclick Then
        stopclick = False
        Exit While
    End If
End While
```
La Stop_Click de ne pas avoir une chance d'être traitée jusqu'à ce que vous appelez DoEvents, donc, de la façon qu'il avait, stopClick ne serait jamais mis à True.

Cependant, le plus gros problème, ici, est que l'appel à DoEvents, à tous, est très mauvaise pratique et peut conduire à des très difficiles à corriger les bugs si vous n'êtes pas très prudent. Il serait beaucoup mieux si la boucle est exécutée dans un thread d'arrière-plan. Découvrez la BackgroundWorker composante d'un programme facile à mettre en œuvre mécanisme de threading pour WinForm projets. Vous le trouverez dans la boîte à outils de votre concepteur de formulaire.

Voici un exemple de comment le faire avec le BackgroundWorker composant:
```
Dim stopclick As Boolean = False

Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
    btnForward.Enabled = False
    btnStop.Enabled = True
    BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
    stopClick = True
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    stopClick = False
    While Not stopClick
        ' Perform the while statements
    End While
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    btnForward.Enabled = True
    btnStop.Enabled = False
End Sub
```
J'ai essayé de placer l'Application.DoEvents() en dehors de l'instruction if. Cependant, j'ai encore de double-cliquer sur le bouton "stop". 1) Comment fait le "bouton d'Arrêt" pour être cliqué pour briser la boucle? 2) connaissez-vous une boucle-de-la rupture de l'échantillon à l'aide de BackgroundWorker?
Ouais, je l'ai juste testé et a reçu le même comportement. Je ne suis pas sûr pourquoi, mais en tout cas, ce n'est pas la bonne façon de le faire de toute façon, je ne voudrais pas perdre de temps à essayer de le comprendre. J'ai ajouté un exemple avec le BackgroundWorker.
Cher @Steven Doggart, je vous remercie pour votre code ci-dessus. J'avais testé, cependant j'ai une erreur. Dans l'instruction while, j'ai une variable ChartControl1 de Form1. Lorsque le code est exécuté, il affiche une erreur: "inter-threads non valide: le Contrôle 'Form1' accessible à partir d'un thread autre que le thread qu'il a été créé." Voici un exemple de lignes dans l'instruction While: ChartControl1.Series.Add(series3) Me.Controls.Add(ChartControl1). Le message d'erreur s'affiche à l' Me.Controls.Add(ChartControl1)
Qui est correct. Vous ne pouvez pas accéder à tous les éléments d'INTERFACE utilisateur (par exemple, le contrôle, formulaires) dans le thread d'arrière-plan. Comme je l'ai dit dans mon autre commentaire sur la réponse de Luc, vous avez besoin de l'éloigner du modèle de données et la logique métier de votre INTERFACE utilisateur, de sorte que de le faire à partir d'un thread séparé est possible sans toucher à aucun contrôle. Si, toutefois, vous avez vraiment besoin d'accéder à un contrôle, vous pouvez le faire en appelant au thread principal avec la forme du Invoke méthode. Par exemple: Invoke(Sub() ChartControl1.Series.Add(series3)).

OriginalL'auteur Steven Doggart
0

Vous pouvez simplifier votre boucle while considérablement en utilisant stopClick en tant que votre condition:
```
While Not stopClick
  Application.DoEvents()
End While
```
Cet extrait de code a bien fonctionné pour moi - je l'ai fait exécuter un morceau de code dans la boucle. Je suis en désaccord au sujet de l'Application.DoEvents commentaire ci-dessus. J'ai trouvé confronté à plusieurs threads/arrière-plan travailleur est beaucoup plus sujette aux erreurs et plus difficile à déboguer/maintenir.
Alors que je suis d'accord que ce code est facile à écrire et à maintenir, il y a quelque chose à dire pour une application multi-thread, surtout quand une de l'INTERFACE utilisateur est impliqué. L'exécution de votre code dans un thread unique va bloquer l'INTERFACE utilisateur. Ce sera très bien pour de petites applications, mais pour toute sorte d'évolutivité, un multi-fileté approche est nécessaire.
Si vous utilisez le BackgroundWorker est trop difficile, c'est probablement parce que vous n'avez pas correctement séparées votre logique métier et à votre modèle de données à partir de votre logique de l'INTERFACE utilisateur. Tant que vous avez conçu votre code bien, il devrait être tout à fait banale. L'important à retenir est que vous ne pouvez pas accéder à l'INTERFACE de la thread d'arrière-plan. Par conséquent, vous avez besoin pour préparer les données, au large de l'INTERFACE utilisateur, avant d'appeler le fil, puis mise à jour de l'INTERFACE utilisateur à partir des résultats, après le fait. Si vous avez vraiment besoin pour accéder à l'INTERFACE directement, vous pouvez toujours utiliser Invoke, mais, idéalement, vous ne serez pas en avoir besoin.

OriginalL'auteur Luke M Willis
0

Je sais que c'est un vieux thread, mais j'ai trouvé une solution simple. Ajouter une Case à cocher pour la forme (il peut même être "du côté de la forme," si cela fait sens).
```
 Private Sub btnStopLoop_Click(sender As System.Object, e As System.EventArgs) Handles btnStopLoop.Click

    chkEndLoop.CheckState = CheckState.Checked

 End Sub
```
Ensuite, dans la Boucle que vous souhaitez quitter:
```
 Do Until chkEndLoop.CheckState = CheckState.Checked

   'Do Stuff Here

 Loop
```
Tant que le CheckBox.CheckState = CheckState.Unchecked, la Boucle continue, mais lorsque la Case à cocher devient Cochée, la Boucle de Sortie

OriginalL'auteur rogue5pawn

-1

Vous devez utiliser btnstop.focus() au début de la boucle. Ce sera assurez-vous de résoudre votre problème.

Exemple:

Dim stopclick As Boolean = False

Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
    btnForward.Enabled = False
    btnStop.Enabled = True
    btnStop.Focus()  ' new code---------------------
    While 
        ' Perform the while statements
        If stopclick = True Then
            stopclick = False
            Application.DoEvents()
            Exit While
        End If
    End While
End Sub

Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
    stopClick = True
End Sub

OriginalL'auteur Linendra Soni

Vous devez vous connecter pour publier un commentaire.