For Next Schleife in VB6 pausieren

  • VB6

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    For Next Schleife in VB6 pausieren

    Hallo,

    gibt es in VB6 eine Möglicheit, per Klick auf einen Button eine längere For-Next-Schleife zu pausieren? Und dann bei nochmaligem Klick auf den Button diese wieder weiter auszuführen.

    Danke für eure Hilfe.

    Moin
    Ich habe das schnell mal gegoogelt. Eine Idee ist:

    Du kannst eine Boolean-Variable hernehmen, die du bei     Button1_Click auf True setzt und bei Button2_Click auf False.
    Wenn True, springt das Programm innerhalb deiner For-Schleife in eine weitere Schleife (eine While-Schleife), in der nur System.Threading.Thread.Sleep(Zeit) steht. Weiß gerade nicht, ob es in VB6 Sleep gab.
    Der Punkt ist, ab und zu musst du mittels     Application.DoEvents() prüfen, ob Button2 gedrückt wurde.

    Bartosz schrieb:

    Weiß gerade nicht, ob es in VB6 Sleep gab.
    Nicht nativ, aber als System-Routine in der kernel32-API
    vbarchiv.net/api/api_sleep.html

    Visual Basic-Quellcode

    1. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    2. Dim Pause As Boolean
    3. Sub Button1_Click
    4. Pause = Not Pause
    5. End Sub
    6. Sub DoLoop
    7. Pause = False
    8. For i = 1 to 9999999
    9. If Pause Then
    10. Sleep 100
    11. i = i - 1 'undo loop increment
    12. Else
    13. Debug.Print i 'or do whatever you want to do
    14. End If
    15. DoEvents
    16. Next
    17. End Sub

    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „petaod“ ()

    @Hessi71
    so könnte es aussehen

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Waiting As Boolean 'Flag für WaitFor
    5. '------------------------------------------------
    6. 'Halteschleife für x Sekunden über Timer Function
    7. '------------------------------------------------
    8. Private Sub WaitFor(Seconds As Single, Waiting As Boolean, _
    9. Optional WithDoEvents As Boolean = True)
    11. Dim aTime As Single, dummy As Single
    13. aTime = Timer
    14. 'Flag setzen um Abbruch zu verhindern
    15. Waiting = True
    16. Do
    17. dummy = Timer
    18. dummy = dummy - aTime
    19. 'Mitternachtsbrücke
    20. If dummy < 0 Then
    21. dummy = dummy + 86400!
    22. End If
    23. If dummy >= Seconds Then
    24. Exit Do
    25. End If
    26. 'DoEvents auslösen
    27. If WithDoEvents Then
    28. DoEvents
    29. End If
    30. Loop
    31. 'Flag freigeben
    32. Waiting = False
    33. End Sub
    35. Private Sub Command1_Click()
    36. 'Demo mit Command2
    37. Command2.Enabled = False
    39. 'command2 für 3 sekunden disabled
    40. WaitFor 3, Waiting
    42. Command2.Enabled = True
    43. End Sub
    45. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    47. If Waiting Then
    48. Cancel = -1
    49. End If
    50. End Sub

    @Hessi71

    Ich würde das Problem über eine Do/Loop- anstatt einer For/Next-Schleife lösen.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private m_bolStop As Boolean
    4. Private m_lngCounter As Long
    5. Private m_lngMaxCount As Long
    7. Private Sub Form_Load()
    9. m_bolStop = True
    10. m_lngMaxCount = 10000
    12. End Sub
    14. Private Sub Command1_Click()
    16. m_bolStop = Not m_bolStop
    18. Call MachWas
    20. End Sub
    22. Private Sub MachWas()
    24. Do While m_bolStop = False
    26. Debug.Print CStr(m_lngCounter)
    28. m_lngCounter = m_lngCounter + 1&
    30. If m_lngCounter > m_lngMaxCount Then
    32. m_bolStop = True
    34. m_lngCounter = 0&
    36. End If
    38. DoEvents
    40. Loop
    42. End Sub
    Mfg -Franky-

Facebook
Telefonspende