Fungsi DoEvents

Catatan:  Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di mode kotak pasir yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, Cari "mode kotak pasir" di bantuan.

Menghasilkan eksekusi sehingga sistem operasi dapat memproses acara lain.

Sintaks

DoEvents ( )

Keterangan

Fungsi DoEvents mengembalikan bilangan bulat menunjukkan jumlah buka formulir di versi mandiri dari Microsoft Visual Basic, seperti Visual Basic, Professional Edition. DoEvents mengembalikan nol di semua aplikasi lainnya.

DoEvents mengirim kontrol ke sistem operasi. Kontrol dikembalikan setelah sistem operasi yang telah selesai memproses kejadian di antrean tersebut dan semua tombol di antrean SendKeys telah dikirim.

DoEvents paling berguna untuk hal-hal sederhana seperti memungkinkan pengguna untuk membatalkan proses setelah telah dimulai, misalnya pencarian untuk file. Untuk proses lama, menghasilkan untuk prosesor lebih baik dicapai dengan menggunakan pengatur waktu atau mendelegasikan tugas untuk komponen ActiveX EXE. Dalam kasus terakhir, tugas bisa melanjutkan benar-benar independen dari aplikasi Anda, dan sistem operasi yang menangani multitasking dan mengiris waktu.

Setiap kali Anda untuk sementara waktu yield untuk prosesor dalam prosedur kejadian, pastikan prosedur tidak dijalankan lagi dari bagian yang berbeda dari kode Anda sebelum mengembalikan panggilan pertama; ini bisa menyebabkan hasil yang tidak diinginkan. Selain itu, gunakan DoEvents jika aplikasi lainnya bisa berinteraksi mungkin dengan prosedur Anda dalam cara-cara yang tak terduga selama Anda memiliki menghasilkan kontrol.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi DoEvents menyebabkan eksekusi untuk menghasilkan untuk sistem operasi sekali setiap 1000 perulangan loop. DoEvents mengembalikan angka buka formulir Visual Basic, tapi hanya ketika aplikasi host Visual Basic.

' Create a variable to hold number of 
' Visual Basic forms loaded and visible.
Dim I, OpenForms
For I = 1 To 150000 ' Start loop.
If I Mod 1000 = 0 Then ' If loop has repeated
' 1000 times.
OpenForms = DoEvents ' Yield to operating system.
End If
Next I ' Increment loop counter.
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×