Fungsi DoEvents

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

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.

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×