Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Gir utføring slik at operativsystemet kan behandle andre hendelser.
Syntaks
DoEvents ( )
Merknader
DoEvents-funksjonen returnerer et heltall som representerer antall åpne skjemaer i frittstående versjoner av Microsoft Visual Basic, for eksempel Visual Basic, Professional Edition. DoEvents returnerer null i alle andre programmer.
DoEvents sender kontrollen til operativsystemet. Kontrollen returneres etter at operativsystemet er ferdig med å behandle hendelsene i køen, og alle nøklene i SendKeys-køen er sendt.
DoEvents er mest nyttig for enkle ting som å la en bruker avbryte en prosess etter at den har startet, for eksempel et søk etter en fil. For langvarige prosesser er det bedre å gi prosessoren bedre ved å bruke en tidtaker eller delegere oppgaven til en ActiveX EXE-komponent. I det siste tilfellet kan oppgaven fortsette helt uavhengig av programmet, og operativsystemet tar seg av fleroppgavekjøring og tidsdeling.
Hver gang du midlertidig gir til prosessoren i en hendelsesprosedyre, må du kontrollere at prosedyre ikke kjøres på nytt fra en annen del av koden før det første kallet returneres. dette kan føre til uforutsigbare resultater. I tillegg bør du ikke bruke DoEvents hvis andre programmer muligens kan samhandle med prosedyren på uforutsagte måter i løpet av tiden du har gitt kontroll.
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker DoEvents-funksjonen til å føre til at kjøringen avkaster operativsystemet én gang hver 1000 gjentakelse av løkken. DoEvents returnerer antall åpne Visual Basic-skjemaer, men bare når vertsprogrammet er 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.
