Funkcija DoEvents

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Piezīme : Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Nodod izpildi operētājsistēmai, lai tā varētu apstrādāt citus notikumus.

Sintakse

DoEvents ( )

Piezīmes

Funkcija DoEvents atgriež veselam skaitlim, kas pārstāv atvērtas veidlapas savrupais izdevums versijas Microsoft Visual Basic, piemēram, Visual Basic Professional Edition skaitu. DoEvents atgriež nulles citās programmās.

DoEvents nodod vadību operētājsistēma. Vadīklas tiek atgriezta pēc operētājsistēmas instalēšana ir pabeigta, apstrādes notikumus savā rindā un nosūtītam visas atslēgas SendKeys rindā.

DoEvents ir vispiemērotākā vienkāršas lietas, piemēram, kas ļauj lietotājam atcelt procesu, pēc tam, kad tā ir sākusies, piemēram, failu meklēšana. Procesiem, iegūstot procesors ir labāk realizēt, izmantojot taimeri vai deleģēt uzdevumu ActiveX EXE komponentam. Šādā gadījumā uzdevumu varat turpināt pilnīgi neatkarīgi no jūsu lietojumprogrammas un operētājsistēmas instalēšana notiek pats par vairāku uzdevumu izpildi un laika sadali.

Jebkurā laikā jūs īslaicīgi yield procesors laikā notikuma procedūru, pārliecinieties, vai procedūra nav izpildīta atkārtoti no citas daļas kodu pirms atgriež pirmo zvanu; tas var izraisīt neparedzamus rezultātus. Turklāt, ja citas lietojumprogrammas varēja iespējams mijiedarboties ar jūsu procedūru neparedzētu veidos laikā, kad ir atrasta vadības Nelietojiet DoEvents .

Piemērs.

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā izmantota funkcija DoEvents izraisīja izpildes yield operētājsistēmai vienreiz katru 1000 atkārtojumiem kursā. DoEvents atgriež skaitli atvērt Visual Basic veidlapas, bet tikai tad, ja resursdatora lietojumprogrammā ir 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.

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×