Как разорвать петлю с одной кнопкой мыши

Question

Я использую VB.NET и у меня есть:

• Start кнопку
• Stop кнопку
• While петля

Когда нажата кнопка Start, начинается цикл While. Я хочу остановить цикл, когда нажата кнопка Stop.

Я пытался использовать Applications.DoEvents, но цикл останавливается, когда кнопка Stop нажата дважды.

Ниже мой код, используя 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 

1. ли я Application.DoEvents неправильно?
2. Каковы другие варианты, кроме Application.DoEvents? Как я могу остановить цикл одним нажатием кнопки Stop?

Answer 1

Вы должны поместить вызов Application.DoEvents вне вашего If заявления, как это:

While True 
    Application.DoEvents() 
    ' Perform the while statements 
    If stopclick Then 
     stopclick = False 
     Exit While 
    End If 
End While 

Stop_Click не будет иметь шанс быть обработан, пока вы не вызовете DoEvents, так, с путь у вас был, stopClick никогда не будет установлен в True.

Однако, большая проблема здесь заключается в том, что вызов DoEvents, вообще говоря, очень плохая практика и может привести к некоторым очень трудным для исправления ошибкам, если вы не очень осторожны. Было бы намного лучше, если бы цикл выполнялся в фоновом потоке. Ознакомьтесь с компонентом BackgroundWorker для простого в использовании механизма Threading для проектов WinForm. Вы найдете его в панели инструментов вашего дизайнера форм.

Вот пример того, как сделать это с BackgroundWorker компонента:

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 

Answer 2

Вы можете упростить свой цикл и значительно используя stopClick в качестве условия:

While Not stopClick 
    Application.DoEvents() 
End While 

Answer 3

Я знаю, что это но я нашел простое обходное решение. Добавьте CheckBox в форму (это может быть даже «со стороны формы», если это имеет смысл).

Private Sub btnStopLoop_Click(sender As System.Object, e As System.EventArgs) Handles btnStopLoop.Click 

    chkEndLoop.CheckState = CheckState.Checked 

End Sub 

Затем в цикле вы хотите выйти:

Do Until chkEndLoop.CheckState = CheckState.Checked 

    'Do Stuff Here 

Loop 

Пока CheckBox.CheckState = CheckState.Unchecked, цикл будет продолжаться, но когда галочка Проверил, цикл Выход

Answer 4

Вы должны использовать btnstop.focus() в начале цикла.Это обязательно поможет решить вашу проблему.

Пример:

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