Как принудительно прекратить выполнение процедуры?

[AntonSh]

Здравствуйте!Прошу помощи в следующем: у меня программка по нажатию на первую командную кнопку записывает в цикле строки в текстовый файл на диск. Запись происходит в событии Command1_Click. Я хочу при помощи той же кнопки или другой остановить этот процесс. Как мне поступить? Спасибо

[Александр80]

exit sub, Return если я правильно понял...

[Александр80]

Короче:

Sub
Немедленный выход из процедуры Sub, в которой находится этот элемент. Выполнение продолжается с команды, следующей непосредственно за оператором, вызвавшим процедуру Sub. Exit Sub может использоваться только внутри процедуры Sub.

Function
Немедленный выход из процедуры Function, в которой находится этот элемент. Выполнение продолжается с оператора, следующего непосредственно за оператором, вызвавшим процедуру Function. Exit Function может использоваться только внутри процедуры Function.

For
Немедленный выход из цикла For, в котором находится этот элемент. Выполнение продолжается с оператора, следующего за оператором Next. Exit For может использоваться только внутри цикла For...Next или For Each...Next. При использовании во вложенных циклах For, Exit For передает управление в ближайший внешний цикл.

Exit Sub, Exit Function и Exit Property могут находиться в тексте сообщения процедуры где нужно и сколько нужно раз. Они могут находиться даже внутри оператора управления, например If...Then...Else. Эти операторы полезны, когда процедура выполнила все, что необходимо, и может немедленно возвратить результат.


И так далее... Идея понятна?

[AntonSh]

Прошу прощения, но видно я не так объяснил...
Во время работы процедуры Command1_Click, т.е. заполнения файла строчками, я не могу нажать никакую другую кнопку - программа не воспринимает нажатия на форме до окончания цикла. А хотелось бы прервать выполнение, нажав на другую кнопку на форме.

[Александр80]

вставь в процедуру DoEvents и все будет ок...

[AntonSh]

Спасибо, дальше найду сам.

[tyomitch]

Кроме собственно DoEvents, нужно ещё завести флаг, который устанавливать по клику второй кнопки и время от времени проверять в Command1_Click.