WD2000: Kuidas rakendada viivitus Visual Basic for Applications

1. meetod: Kasutage tühja kohta... Järgmise silmus

Selle meetodi puuduseks on otseselt kuidagi täpselt kindlaks määrata aega, et käivitada see programm. Kuluvat aega sõltub arvuti kiirusest. Järgmine kood käivitatakse tsükkel, mis ei tööta, kuid võtavad aega.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

2. meetod: Kasutage API kõne Word täitmise peatada

API kõne abil peatada Wordi käivitamise kindlaksmääratud aja jooksul.

See Kernel32 sisaldab funktsiooni, peatab programmi käivitamise määratud aja jooksul, määratud millisekundites. Saab kasutada funktsiooni, esmalt tunnistada, kus neid kasutatakse mooduli Üldine deklaratsioonide osas:

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

Kasutage järgmist süntaksit unerežiimi funktsiooni.

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

3. meetod: Kasutage OnTime meetod

OnTime meetodi abil saate määrata määramiseks. OnTime meetod kasutab järgmist süntaksit:

expression. OnTime (Millal, nimi, olukord)Kuna draivinime argumendi puhul on vaja käivitada makro nimi, peate looma kaks makrod: esimese makro OnTime meetod kõne ja muud vajalikku makro käske ja teine makro käivitamise aja möödumist. Teine makro saab "fiktiivne" makro, mis ei tööta.

Selles näites käivitab makro nimega "MyDelayMacro" 15 sekundi jooksul alates näiteks käivitada.

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

Visual Basic Editori OnTime meetodi kasutamise kohta lisateabe saamiseks klõpsake menüü Help Microsoft Visual Basicu spikker , tippige Office'i abimehe või vastuseviisardi OnTime meetod ja Otsing kuvamiseks klõpsake teema.