Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Daje izvršavanje tako da operativni sistem može da obradi druge događaje.
Sintaksa
DoEvents ( )
Napomene
Funkcija DoEvents vraća ceo broj koji predstavlja broj otvorenih obrazaca u samostalnim verzijama programa Microsoft Visual Basic, kao što je Visual Basic, Professional Edition. DoEvents daje nulu u svim drugim aplikacijama.
DoEvents prelazi kontrolu na operativni sistem. Kontrola se vraća kada operativni sistem završi obradu događaja u redu za čekanje i kada su poslati svi tasteri u redu slanja tastera.
DoEvents je najkorisniji za jednostavne stvari kao što je dozvoljavanje korisniku da otkaže proces nakon što je pokrenut, na primer pretraga datoteke. Za dugotrajne procese, postizanje procesora je bolje postići pomoću tajmera ili delegiranja zadatka ActiveX EXE komponenti. U ovom slučaju, zadatak može da se nastavi potpuno nezavisno od aplikacije, a operativni sistem se brine o multitaskingu i sečenju vremena.
Svaki put kada privremeno dobijete prinos na procesor u okviru procedure događaja, uverite se da procedura nije ponovo izvršen iz drugog dela koda pre nego što se prvi poziv vrati; ovo može dovesti do nepredvidivih rezultata. Pored toga, nemojte da koristite DoEvents ako druge aplikacije mogu da vrše interakciju sa procedurom na nepredvidjene načine tokom vremena kada ste dali kontrolu.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju DoEvents kako bi se izvršavanje dodelo na operativni sistem jednom na svakih 1000 iteracija petlje. DoEvents daje broj otvorenih Visual Basic obrazaca, ali samo kada je aplikacija hosta 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.
