Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Átadja a végrehajtást, hogy az operációs rendszer fel tudja dolgozni az egyéb eseményeket.
Szintaxis
DoEvents( )
Megjegyzések
A DoEvents függvény egy Egész adattípusú értéket ad eredményül, amely a Microsoft Visual Basic önálló verzióiban (például a Visual Basic Professional Edition) levő nyitott űrlapok számát adja meg. A DoEvents nulla értéket ad minden más alkalmazás esetében.
A DoEvents függvény átadja az irányítást az operációs rendszernek. Az irányítás visszakerül, miután az operációs rendszer befejezte a várólistában lévő összes esemény feldolgozását, és elküldte a Billentyűküldés várólistában lévő összes billentyűleütést.
A DoEvents függvény egyszerű tevékenységekhez a leghasznosabb, például engedélyezheti egy felhasználónak, hogy leállítson egy megkezdett folyamatot, például egy fájlkeresést. Hosszú futású eseményeknél a processzornak történő átadás jobban elvégezhető Időzítő használatával, vagy a feladat ActiveX EXE összetevőnek való átadásával. Az utóbbi esetben a feladat az alkalmazástól teljesen függetlenül folytatódhat, és az operációs rendszer gondoskodik a többfeladatos működésről és az időszeletek biztosításáról.
Minden alkalommal, amikor ideiglenesen átadja a processzornak egy eseményeljáráson belül, győződjön meg arról, hogy az eljárás nem lesz újra végrehajtva a kód egy másik részéből, mielőtt az első hívás visszatér; ez kiszámíthatatlan eredményeket okozhat. Akkor se használja a DoEvents függvényt, ha más alkalmazások az irányítás átadásának időtartama alatt előre nem látható módon zavarhatják az eljárást.
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Az alábbi példában a DoEvents függvénnyel a végrehajtást 1000 iterációnként egyszer átadja az operációs rendszernek. A DoEvents visszaadja a nyitott Visual Basic űrlapok számát, de csak akkor, ha a gazdaalkalmazás a 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.