WD2000: uygulamalar için Visual Basic'te bir gecikme uygulamak nasıl

Yöntem 1: için boş kullan... Sonraki döngü

Bu yöntemin bir dezavantajı tam program döngü çalıştırmak için gereken süre miktarını belirlemek için doğrudan bir yol yoktur. Süre bilgisayarınızın hızına olarak değişir. Hiçbir şey yapmaz aşağıdaki kod bir döngü, çalışır, ancak biraz zaman alabilir.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Yöntem 2: Word yürütme askıya almak için bir API çağrısı kullanın.

Word'ün yürütme sabit bir süre için askıya almak için bir API çağrısı kullanın.

Kernel32 bir belirtilen süreyi milisaniye cinsinden belirtilen bir programın yürütülmesine duraklatır bir işlev içerir. İşlevi kullanmak için ilk önce içinde kullanılmasını sağlayacak modülün genel tanımlamalar bölümüne bildirilmesi gerekir:

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

Uyku işlevini çağırmak için aşağıdaki sözdizimini kullanın:

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

Yöntem 3: OnTime yöntemini kullanın.

Bir duraklama süresi miktarını ayarlamak için OnTime yöntemini kullanın. OnTime yöntemi aşağıdaki sözdizimini kullanır:

ifade. OnTime (ne zaman, adı, tolerans)Çalıştırılacak bir makro adı değişkeni gerektirdiğinden, iki makro oluşturmanız gerekir: OnTime yöntem çağrısı ve makronuza ilgili diğer komutları içerecek şekilde ilk makro ve ikinci makro ayrılan süre geçtiğinde çalıştırmak için. İkinci makronun hiçbir şey yapmayan bir "kukla" makro olabilir.

Bu örnek örnek çalışma süresi 15 saniyeden "MyDelayMacro" adlı bir makroyu çalıştırır.

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 Düzenleyicisi'nde OnTime yöntemini kullanarak hakkında daha fazla bilgi için Yardım menüsünde Microsoft Visual Basic Yardımı ' nı tıklatın, Office Yardımcısı'na veya Yanıt Sihirbazı'na OnTime yöntemi yazın ve görüntülemek için Ara ' yı tıklatın konu.