Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
İşletim sisteminin diğer olayları işleyebilmesi için yürütmeyi sağlar.
Söz dizimi
DoEvents ( )
Açıklamalar
DoEvents işlevi, Visual Basic, Professional Edition gibi Microsoft Visual Basic'in tek başına sürümlerindeki açık form sayısını temsil eden bir Tamsayı döndürür. DoEvents diğer tüm uygulamalarda sıfır döndürür.
DoEvents , denetimi işletim sistemine geçirir. İşletim sistemi kuyruğundaki olayları işlemeyi tamamladıktan ve SendKeys kuyruğundaki tüm anahtarlar gönderildikten sonra denetim döndürülür.
DoEvents , bir kullanıcının başlatıldıktan sonra bir işlemi iptal etmesine izin verme gibi basit işlemler (örneğin, dosya arama) için kullanışlıdır. Uzun süre çalışan işlemler için işlemciye verim sağlamak, Zamanlayıcı kullanılarak veya görevi bir ActiveX EXE bileşenine devrederek daha iyi bir şekilde gerçekleştirilir. İkinci durumda, görev uygulamanızdan tamamen bağımsız olarak devam edebilir ve işletim sistemi çoklu görev ve zaman dilimlemeyle ilgilenir.
Bir olay yordamı içinde işlemciye geçici olarak verim yaptığınızda, ilk çağrı dönmeden önce yordam kodunuzun farklı bir bölümünden yeniden yürütülmediğinden emin olun; bu, öngörülemeyen sonuçlara neden olabilir. Ayrıca, denetime sahip olduğunuz süre boyunca diğer uygulamalar yordamınızla öngörülemeyen yollarla etkileşime geçebiliyorsa DoEvents'i kullanmayın.
Örnek
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, yürütmenin döngünün her 1000 yinelemesinde bir kez işletim sistemine döndürülmesine neden olmak için DoEvents işlevi kullanılır. DoEvents , yalnızca konak uygulaması Visual Basic olduğunda açık Visual Basic formlarının sayısını döndürür.
' 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.
