Poznámka: Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Prenechá sa spustenie a operačný systém môže spracúvať iné udalosti.
Syntax
DoEvents ( )
Poznámky
Funkcia DoEvents vráti celé číslo predstavujúce počet otvorených formulárov v samostatnej verzii programu Microsoft Visual Basic, ako je napríklad Visual Basic, Professional Edition. Vo všetkých ostatných aplikáciách vráti funkcia DoEvents nulu.
Funkcia DoEvents odovzdá kontrolu operačnému systému. Po ukončení spracovania udalostí vo fronte operačným systémom a po odoslaní všetkých kódov vo fronte sa kontrola odovzdá späť.
Funkcia DoEvents je najužitočnejšia pri jednoduchých veciach, ako je napríklad umožnenie používateľovi zrušiť proces po jeho spustení, napríklad pri vyhľadávaní súboru. V prípade dlhotrvajúcich procesov sa dávať procesoru lepšie pomocou časovača alebo delegovaním úlohy na súčasť ActiveX EXE. V druhom prípade môže úloha pokračovať úplne nezávisle od vašej aplikácie a operačný systém sa postará o multitasking a časové krájanie.
Kedykoľvek dočasne prenesiete procesora v rámci procedúry spúšťanej udalosťou, pred vrátením prvého volania skontrolujte, či procedúra už nie je vykonaný z inej časti kódu. to môže spôsobiť nepredvídateľné výsledky. Okrem toho, nepoužívajte DoEvents , ak iné aplikácie by mohli pracovať s postupom nepredvídané spôsobmi v čase, keď ste priniesli kontrolu.
Príklad
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia DoEvents použitá na to, aby sa spustenie mohlo vrátiť do operačného systému raz za 1 000 iterácií slučky. Funkcia DoEvents vráti počet otvorených formulárov jazyka Visual Basic, ale len v prípade, že hostiteľská aplikácia je 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.
