Endlosschleife beenden durch einmaligen Button-Klick funktioniert nicht

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mike4711.

    Endlosschleife beenden durch einmaligen Button-Klick funktioniert nicht

    Hallo zusammen,

    ich möchte eine Endlosschleife durch einmaligen Klick auf einen Button beenden können.

    Habe dazu im Forum schon gesucht und auch Hinweise gefunden, dass "Application.DoEvents()" integriert werden muss, damit Ereignisse auch abgefragt werden, wenn das Programm mit der Schleife ausgelastet ist.

    Das mit dem Abbrechen funktioniert zwar grundsätzlich, aber ich muss immer 2 mal auf den Abbruch-Button klicken, damit die Schleife auch verlassen wird.

    Dieses Problem wurde zwar hier im Forum auch schon besprochen, aber soweit ich gesehen habe, immer mit alternativen Lösungen (z. B. Timer).

    Ich suche aber eine Lösung, um tatsächlich mit einmaligem Button-Click aus einer Endlos-Do-While-Schleife auszusteigen.

    Nachfolgend ein Beispiel-Code und zuvor noch folgende Anmerkung:

    Mir geht es letztendlich auch darum, das Ganze zu verstehen. Wenn ich im Abbruch-Event einen Haltepunkt setze, stelle ich fest, dass dieses nach einmaligem Klick auf den Button nicht erreicht wird. Erst nach zweimaligem Klick verzweigt das Programm in das Abbruch-Button-Event. Warum ist das so, bzw. was muss am Code noch verändert werden?

    Mike

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Beenden As Boolean = False
    5. Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
    7. Dim Zähler As Integer = 0
    9. Do While Not Beenden
    11. Zähler = Zähler + 1
    13. lblAnzeige.Text = Zähler.ToString
    15. Application.DoEvents()
    17. Loop
    20. End Sub
    22. Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
    24. Beenden = True
    26. MsgBox("Schleife wird beendet...")
    28. End Sub
    31. End Class

    Ich hatte mal das gleiche Problem...

    und zwar wird durch die while der button nicht wieder "freigegeben" (=cmdstart = selected)
    d.h. du musst den anderen button oder die Form selectieren

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Beenden As Boolean = False
    3. Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
    4. Dim Zähler As Integer = 0
    5. cmdStop.Select()
    6. Do While Not Beenden
    7. Zähler += 1
    8. lblAnzeige.Text = Zähler.ToString
    9. Application.DoEvents()
    10. Loop
    11. Msgbox("Beendet")
    12. End Sub
    14. Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
    15. Beenden = True
    16. MsgBox("Schleife wird beendet...")
    17. End Sub
    18. End Class

Facebook
Telefonspende