Главная страницаОбратная связьКарта сайта

Выполнить через Х секунд



Public Function TimeOUT(HesitateTime)
Dim Hesitator As Long

Hesitator& = Timer
Do While Timer - Hesitator& < Val(HesitateTime)
DoEvents
Loop
End Function

TimeOUT (10)


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Выполнить через Х секунд", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info