| Вопрос: как остановить выполнение проги на время | Добавлено: 16.12.05 01:42 |
Автор вопроса:  Byka
|
| нужно чтобы в определенному месту при выполнении програмного кода, пога остановилась на определённом месте на указаное время |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Dushes ICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #1 | Добавлено: 16.12.05 07:53 |
|
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Delay(ByVal T&  ' T - время задержки в милисекундах
On Error GoTo 1 Dim TM As Single TM = Timer Do  oEvents
Sleep 1 Loop Until Timer > TM + T / 1000 1 End Sub При вызове этой процедуры выполнение кода приостановится, но события работать будут.... Если просто нужно подвисание программы, просто вызови Sleep с нужной задержкой... |
||
|
Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 19.12.05 21:41 |
|
...но события работать будут.... Не будут, если DoEvents не писать!!!!
|
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 20.12.05 11:20 |
| Noviks, смотри внимательней, DoEvents в посте N1 присутствует. | ||