Прервать процесс

[Skarobey]

как прервать выполнение процесса не зависимо какую часть кода он выполняет...

щас у меня стоит
If GetAsyncKeyState(13) Then Exit Sub
или что-то в этом роде, точно не помню...
но стоит у меня в середине Sub и тутже задействованы функции продолжительные по времени...и чтоб остановить процесс (интер) приходится зажимать интер и ждать пока процесс дойдет до данной проверки.

так как сделать выход независимо от того какой кусок кода выполняет прога?

[GSerg]

Сделать кнопку Отмена, назначить ей Cancel = True, в её коде прописать остановку, а во всех процедурах - DoEvents.

[Skarobey]

что именно значит DoEvents ?

а кнопкой не выйдет т.к. форма у меня не активна во время выплнения.

может как-то через таймер передать остановку Sub?

[lord0n]

делай в неактивной форме проверку например какой нить переменной, если она true, то останавливай процесс
переменную обьяви в модуле или в форме (public переменная as boolean)

[Skarobey]

так эту проверку тоже надо вставлять в середину кода и тоже будет проверятся 1 раз ито когда до нее доползет.

[lord0n]

а почему бы её не встроить в трех местах кода: в начале, в середине и в конце

[Kovu]

lord0n
Пользователь может захотеть прервать процесс в любом месте.
Skarobey
Если использовать таймер то надо проверять постоянно с начала запуска процедуры, а это грузит процессор по конкретному.

[Al Khamid]

88

[Skarobey]

do while i<50000
i =i+1
Sleep 3000
loop

вот захотел остановить на первой секунде выполнения (нажатием кнопки)...как?

[uhm]

Про DoEvents не почитал, конечно?

[Skarobey]

вот интересно, все вроде работает(инсерт-старт, интер-стоп), стартует и останавливает гуд... но когда добавляешь sleep, он не в какую не хочет останавливать!!! только в том случии если я удерживаю кнопку остановки.... может у меня из-за еэтого не получается?...

может есть альтернатива sleep'y ??


Dim stopp As Boolean
Dim i As Integer

Private Sub Command1_Click()
'Sleep 3000
i = i + 1
Text1.Text = i
End Sub

Private Sub Timer1_Timer()
If stopp = True Then
Do While DoEvents()
Command1_Click
Exit Do
Loop
End If
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(13) <> 0 Then stopp = False
If GetAsyncKeyState(45) <> 0 Then stopp = True
End Sub

[tyomitch]

Do While DoEvents() рулит )

Если серьёзно, то как-то у тебя всё странно. Зачем тебе вообще GetAsyncKeyState? Form_KeyDown вроде как намного лучше таймера в отношении загрузки процессора.

[Skarobey]

это тестовый код, а так у меня другой, этот похож...
у меня активное окно не моего екзешника, но мышка управляется моим... что-то типо кликера... и останавливать получится только клавой. вот...
так что нащет альтернативы слипа?

[Skarobey]

нашел на форуме альтернативу

Код: Выделить всё

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

но вставив ее проблема решилась частично... т.е. теперь хоть останавливается, но после нажатия клавиши остановки делает еще 1 цыкл Function Delay

Код: Выделить всё

Dim stopp As Boolean
Dim i As Integer

Private Sub Command1_Click()
Delay 5
i = i + 1
Text1.Text = i
End Sub

Private Sub Timer1_Timer()
    If stopp = True Then
        Do While DoEvents()
        Command1_Click
        Exit Do
        Loop
    End If
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(13) <> 0 Then stopp = False
If GetAsyncKeyState(45) <> 0 Then stopp = True
End Sub

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

[Skarobey]

все, разобрался

Код: Выделить всё

Private Sub Timer1_Timer()
DoEvents
    If stopp = True Then

и

Код: Выделить всё

Do While Timer < Start + Pause
If GetAsyncKeyState(13) <> 0 Then Exit Do
DoEvents
Loop

всем спасибо за подсказки