Приостановка выполнения программы - VB

Формулировка задачи:

Как организовать остановку выполнения программы при нажатии пробела и продолжение её выполнения после повторного нажатия с сохранением всех текущих данных? Не ставить же после каждой строки кода проверку нажатия)

Решение задачи: «Приостановка выполнения программы»

textual
                            Листинг программы 
                        

                            Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Static p As Boolean, p1 As Boolean
    p = Not p
    If p = False And KeyCode = 32 Then
        Me.Caption = "Pause"
        p1 = True
        While p1
            DoEvents
        Wend
    ElseIf KeyCode = 32 Then
        Me.Caption = "Start"
        p1 = False
    End If
End Sub
                        

Оцени полезность:

8 голосов , оценка 4.125 из 5

Похожие ответы