Funkcija DoEvents

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Iegūst izpildi, lai operētājsistēma varētu apstrādāt citus notikumus.

Sintakse

DoEvents ()

Piezīmes

Funkcija DoEvents atgriež veselu skaitli, kas attēlo atvērto veidlapu skaitu savrupās Microsoft Visual Basic versijās, piemēram, Visual Basic, Professional Edition. DoEvents atgriež nulli visās citās lietojumprogrammās.

DoEvents nodod vadību operētājsistēmai. Vadīkla tiek atgriezta pēc tam, kad operētājsistēma ir pabeidzusi notikumu apstrādi tās rindā un visi taustiņi rindā SendKeys ir nosūtīti.

DoEvents ir visnoderīgākā, lai lietotājam atļautu atcelt procesu pēc tā startēšanas, piemēram, meklēt failu. Ilgstošos procesos paredzētais procesors ir labāk paveikts, izmantojot taimeri vai deleģējot uzdevumu ActiveX EXE komponentam. Pēdējā gadījumā uzdevums var turpināt darbu pilnīgi neatkarīgi no jūsu lietojumprogrammas, un operētājsistēma rūpējas par vairākuzdevumu un laika datu griezumu.

Jebkurā brīdī, kad esat īslaicīgi izdevies pārstrādātājam notikuma procedūrā, pārliecinieties, vai procedūra netiek atkārtoti izpildīta no citas koda versijas pirms pirmā sarunas atgriešanas; tas var izraisīt neprognozējamus rezultātus. Turklāt Nelietojiet DoEvents , ja citas lietojumprogrammas, iespējams, var mijiedarboties ar jūsu procedūru neparedzētu darbību laikā, kad ir izdevies vadīt vadību.

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ā tiek izmantota funkcija DoEvents , lai izraisītu izpildes veikšanu operētājsistēmai ik pēc 1000 iterācijām. DoEvents atgriež atvērto vizuālo pamata veidlapu skaitu, taču tikai tad, ja viesošanas lietojumprogramma 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.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office 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 jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×