Страница: 1 |
Как сделать паузу??? Вот на QBasic это оператор delay а в VB? Люди хелп плизззз
Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Sleep(1000) А ещё можно без апи: Public Sub SleepVB(Seconds) Dim Start Start = Timer Do While Timer < Start + Seconds DoEvents Loop End Sub В нужном месте пишеш SleepVB(0.5) А можно скомбинировать оба способа, чего и советую делать Do While Timer < Start + Seconds DoEvents Loop А на загруженность проца наплевать? SetTimer, KillTimer Страница: 1 |
Вопрос: Как сделать паузу???
Добавлено: 23.02.04 16:40
Автор вопроса: Makccc | Web-сайт:
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #1
Добавлено: 23.02.04 16:51
Номер ответа: 2
Автор ответа:
Ra$cal
ICQ: 8068014
Вопросов: 18
Ответов: 817
Web-сайт:
Профиль | | #2
Добавлено: 23.02.04 17:17
Номер ответа: 3
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #3
Добавлено: 23.02.04 20:22
Т.е. берем за основу код Ra$cal, и в цикл вписываем Sleep(1&), так и нагрузки на процессор - немного, и программа не подвисает...
Номер ответа: 4
Автор ответа:
crackoff
ICQ: 156165990
Вопросов: 12
Ответов: 229
Профиль | | #4
Добавлено: 24.02.04 20:10
Номер ответа: 5
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #5
Добавлено: 24.02.04 22:04