WD2000: Як здійснити затримка у Visual Basic для застосунків

Спосіб 1: Використання на пусте для... Наступний цикл

Недоліки, щоб цей спосіб, в тому, що є прямий спосіб визначити точну кількість часу, що програму потрібно запустити цикл. Тривалість залежить від швидкості вашого комп'ютера. Наведений нижче код, запускається циклу, що робить, зайняти деякий час.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Спосіб 2: Використання звернення до API, щоб припинити виконання в програмі Word

За допомогою звернення до API припинити виконання програми Word, фіксована кількість часу.

У Kernel32, містить функцію, призупинення виконання програми, для певного часу, зазначених у мілісекундах. За допомогою функції він спочатку повинні бути описані в розділі "Загальні оголошень" модуль, в якому буде використано:

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

Викликати функцію сну , використовуючи такий синтаксис:

Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub

Спосіб 3: Використовувати OnTime

Скористайтеся методом OnTime , щоб установити кількість часу, щоб призупинити. OnTime використовується такий синтаксис:

вираз. OnTime (під час, ім'я, допуск)Оскільки ім'я макросу, щоб запустити аргумент " ім'я ", необхідно створити два макроси: перший макрос містить виклик методу OnTime та інші команди, які мають відношення до макросу а другий макрос, під час проміжок часу. Другий макрос, може бути "Макет" макросів, що нічого не робить.

У цьому прикладі виконується, макрос, ім'я "MyDelayMacro", 15 секунд з моменту запуску у прикладі.

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

Щоб отримати додаткові відомості про використання методу OnTime, у редакторі Visual Basic Довідка Microsoft Visual Basic меню команду Help , введіть OnTime метод у помічнику Office або в майстрі відповідей та натисніть кнопку пошуку , щоб переглянути розділ.