WD2000: Cara menerapkan penundaan dalam Visual Basic untuk aplikasi

Metode 1: Gunakan kosong untuk... Loop berikutnya

Kerugian metode ini tidak ada cara langsung untuk menentukan jumlah waktu yang program yang diperlukan untuk menjalankan loop yang tepat. Jumlah waktu tergantung pada kecepatan komputer Anda. Kode berikut berjalan loop itu tidak mengambil beberapa waktu.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Metode 2: Menggunakan API panggilan untuk menghentikan eksekusi Word

Menggunakan API panggilan untuk menghentikan eksekusi Word untuk jumlah waktu yang diperbaiki.

Kernel32 berisi fungsi yang berhenti pelaksanaan program untuk jumlah waktu yang ditentukan dalam milidetik yang ditetapkan. Bagi Anda untuk menggunakan fungsi, itu harus terlebih dahulu dinyatakan di bagian Deklarasi umum modul yang akan digunakan:

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

Gunakan sintaks berikut untuk memanggil fungsi tidur :

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

Metode 3: Menggunakan metode peningkatan

Gunakan metode peningkatan untuk menetapkan jumlah waktu untuk jeda. Metode peningkatan menggunakan sintaks berikut ini:

expression. Peningkatan (ketika, nama, toleransi)Karena argumen nama memerlukan nama makro untuk dijalankan, Anda harus membuat dua makro: makro pertama berisi peningkatan metode panggilan dan perintah lain yang relevan dengan Anda makro, dan makro kedua untuk menjalankan ketika waktu yang ditentukan telah berlalu. Makro kedua dapat makro "sembarang" yang ada.

Contoh ini menjalankan makro yang bernama "MyDelayMacro" 15 menit dari waktu contoh dijalankan.

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

Untuk informasi selengkapnya tentang cara menggunakan metode peningkatan, di Editor Visual Basic, klik Bantuan Microsoft Visual Basic pada menu bantuan , ketik metode peningkatan di bantuan Office atau Wisaya jawaban, dan kemudian klik pencarian untuk melihat topik.