WD2000: Kaip įdiegti delsa Visual Basic for Applications

1 metodas: Naudoti tuščią... Kiti linijos

Šio metodo trūkumas yra tai, kad yra tiesioginio būdas nustatyti tikslią laiko, kad programa turi vykdyti visas naujienas. Laikas priklauso nuo jūsų kompiuterio sparta. Šis kodas veikia ciklą, nieko nedaro, o užtrukti šiek tiek laiko.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

2 metodas: Naudokite API iškvietimas sustabdyti Word vykdymas

Naudokite API iškvietimas sustabdyti Word už nustatytą laiką.

Į Kernel32 yra funkcija, kurios pristabdomas programos vykdymo tam tikro laiko, nurodytas milisekundėmis. Galite naudoti funkciją, pirmiausia reikia pripažinti, kai jis bus naudojamas modulio skyriuje bendras deklaracijas:

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

Naudokite tokią sintaksę į užmigdymo funkciją:

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

3 metodas: Naudokite OnTime metodas

Nustatykite, kiek laiko sustabdyti OnTime metodą. OnTime metodas naudoja šią sintaksę:

expression. OnTime (kai, pavadinimą, nuokrypio)Todėl, kad pavadinimo argumento reikia vykdyti makrokomandą, pavadinimą, turite sukurti du makrokomandos: pirmą kartą makrokomandą OnTime būdas skambinti ir kitas komandas, susijusius su jūsų makrokomandos ir antrą makrokomandą paleisti kai praėjo skirtąjį laiką. Antras makrokomandos gali būti "fikcijos" makrokomandą, nieko nedaro.

Šiame pavyzdyje makrokomandą pavadinimu "MyDelayMacro" 15 sekundžių nuo vykdomas pavyzdys.

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

Daugiau informacijos apie naudojant OnTime Visual Basic rengyklė, žinyno meniu spustelėkite Microsoft Visual Basic žinynas , įveskite OnTime būdas Office asistente arba atsakymų vedlyje, ir spustelėkite paieškos Norėdami Rodyti šia tema.