| Вопрос: Как прервать выполнения подпрограммы? | Добавлено: 26.11.03 21:36 |
Автор вопроса:  HACKER
|
Вот есть кнопка, нажимаем на неё и кое-что делаем минут 5. Есть ещё одна, "Прервать", ну всмысле выполнения подпрограммы обработки кнопки "Сделать", так вот при выполнени чего-то в кнопке "Сделать" кнопка "Прервать" неслышит меня, как можно кирикнуть ей громче? БУДУ РАД ПОМОЩИ!
|
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 27.11.03 08:12 |
|
Нужно периодически в коде выполнения ствоего процесса вызывать команду DoEvents. То есть, например, при нажатии на "Сделать" выполняется такой код: For i=1 To 10000000 Debug.Print "Я сошёл с ума" Next Чтобы в процессе выполнения этой чепухи программа откликалась на события (в частности, клик по кнопке "Прервать"), необходимо сделать так: For i=1 To 10000000 Debug.Print "Я сошёл с ума" DoEvents Next Теперь когда выполнение будет доходить до команды DoEvents, текущий код будет приостанавливаться и VB будет проверять, что винды прислали окну за время выполнения кода и, соответственно, генерировать соответствующие события. |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 27.11.03 20:28 |
| спасибо | ||
Страница: 1 |