WD2000: Bagaimana menerapkan penundaan dalam Visual Basic untuk aplikasi

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 212667 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Word tidak memiliki built-in metode untuk menunda pelaksanaan makro, tapi workarounds dapat digunakan untuk mencapai efek ini.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Untuk informasi lebih lanjut tentang cara menggunakan kode contoh dalam artikel ini, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
212536OFF2000: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan
Anda dapat menggunakan salah satu metode berikut untuk menunda pelaksanaan makro dengan menggunakan Visual Basic untuk aplikasi.

Metode 1: Menggunakan kosong untuk...Berikutnya Loop

Kerugian metode ini adalah bahwa tidak ada cara langsung untuk menentukan jumlah yang tepat waktu yang program yang diperlukan untuk menjalankan loop. Jumlah waktu tergantung pada kecepatan komputer Anda. Kode berikut berjalan loop yang tidak apa-apa tetapi mengambil beberapa waktu.
Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub
				

Metode 2: Gunakan API panggilan untuk menangguhkan kata eksekusi

Menggunakan API panggilan untuk menunda pelaksanaan kata untuk jumlah waktu yang tetap.

Kernel32 berisi fungsi yang berhenti pelaksanaan program selama jangka waktu yang ditentukan dalam milidetik. Bagi Anda untuk menggunakan fungsi, itu harus pertama dinyatakan di bagian umum Deklarasi modul yang akan digunakan:
   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)
				
Menggunakan sintaks berikut untuk memanggil Tidur fungsi:
Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub
				

Metode 3: Gunakan metode OnTime

Penggunaan OnTime metode untuk mengatur jumlah waktu untuk berhenti. The OnTime metode menggunakan sintaks berikut:
ekspresi.OnTime (ketika, nama, Toleransi)
Karena Nama argumen memerlukan nama makro untuk menjalankan, Anda harus membuat dua macro: makro pertama berisi OnTime metode panggilan dan perintah lain relevan untuk makro Anda, dan makro kedua untuk menjalankan ketika waktu yang diberikan telah berlalu. Kedua makro dapat makro "bodoh" yang tidak apa-apa.

Contoh ini menjalankan makro yang bernama "MyDelayMacro" 15 detik dari waktu contoh menjalankan.
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 lebih lanjut tentang menggunakan metode OnTime, di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis OnTime metode di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.

REFERENSI

Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
212623 WD2000: Makro pemrograman sumber daya
226118 OFF2000: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 212667 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Word 2000
Kata kunci: 
kbdtacode kbhowto kbmacroexample kbprogramming kbmt KB212667 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:212667

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com