vb.net - Stop Schleife, wenn ich Knopf drücken

Question

Ich habe eine Schleife (in einer anderen Klasse), was ich aufhören soll, wenn ich eine Taste drücken, aber ich weiß nicht, wie es zu tun

Das ist mein Code :

'My FORM 

Dim blStop = False 

Private Sub btnFilter_Click(sender As Object, e As EventArgs) Handles btnFilter.Click 
     AnotherClass.doTheLoop(blStop) 
End Sub 

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



'AnotherClass Loop 

While (blStop = False) 
    'blablabla 
End While 

Answer 1

Ihr Problem ist folgendes:

Public Sub doTheLoop(blStop as Boolean) 
    While (blStop = False) 
     'blablabla 
    End While 
End Sub 

die Erklärung von blStop, eine neue Variable erstellt, so dass, wenn Sie den Wert auf false festgelegt, stellen Sie nur die eine lokal decalred.

Eine schnelle und dreckige Lösung wäre, den booleschen Wert ByRef zu deklarieren - das würde bedeuten, dass er immer noch auf die ursprüngliche Variable verweist.

Public Sub doTheLoop(ByRef blStop as Boolean) 
    While (blStop = False) 
     'blablabla 
    End While 
End Sub 

Eine bessere Lösung wäre eine Methode in der Klasse zu haben, die Sie anrufen, wenn Sie lieber aufhören wollen als runde Variablen übergeben.

Answer 2

Hier ist, wie Sie Ihre anderen Klasse sollte wie folgt aussehen:

Public class AnotherClass 
    Private Shared blStop As Boolean = False 

    'blablabla 

    Public Shared Sub doTheLoop() 
     While Not blStop 
      'blablabla 
     End While 
    End Sub 

    Public Shared Sub StopTheLoop() 
     blStop = True 
    End Sub 

    'blablabla 
End Class 

Dann können Sie diese Schleife wie folgt aufrufen:

'Form class 
Private Sub btnFilter_Click(sender As Object, e As EventArgs) Handles btnFilter.Click 
    'You must run the loop on another thread or you will block the UI thread. 
    'Therefore your application will 'Stop Responding' 
    System.Threading.Thread.QueueWorkUserItem(AddressOf(AnotherClass.DoTheLoop)) 
End Sub 

Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click 
    AnotherClass.StopTheLoop() 
End Sub