הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול (Sandbox) שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש את "מצב ארגז חול" בעזרה.
הפקת הביצוע כדי שמערכת ההפעלה תוכל לעבד אירועים אחרים.
תחביר
DoEvents ( )
הערות
הפונקציה DoEvents מחזירה מספר שלם המייצג את מספר הטפסים הפתוחים בגירסאות עצמאיות של Microsoft Visual Basic, כגון Visual Basic, Professional Edition. DoEvents מחזיר אפס בכל היישומים האחרים.
DoEvents מעביר שליטה למערכת ההפעלה. הפקד מוחזר לאחר שמערכת ההפעלה סיימה לעבד את האירועים בתור שלו וכל המפתחות בתור SendKeys נשלחו.
DoEvents שימושי ביותר עבור פעולות פשוטות כגון מתן אפשרות למשתמש לבטל תהליך לאחר הפעלתו, לדוגמה חיפוש אחר קובץ. עבור תהליכים הפועלים מזמן, התשואה למעבד מושגת טוב יותר באמצעות שעון עצר או הקצאת המשימה לרכיב ActiveX EXE. במקרה האחרון, המשימה יכולה להמשיך להיות בלתי תלויה לחלוטין ביישום שלך, ומערכת ההפעלה מטפלת בריבוי משימות ובשילוח זמן.
בכל פעם שתניב באופן זמני למעבד בתוך פרוצדורת אירוע, ודא שהקובץ הליך לא יופעל שוב בחלק אחר של הקוד לפני שהשיחה הראשונה חוזרת; פעולה זו עלולה לגרום לתוצאות בלתי צפויות. בנוסף, אל תשתמש ב- DoEvents אם אפליקציות אחרות יוכלו לקיים אינטראקציה עם ההליך שלך בדרכים לא צפויות בזמן שהניבת שליטה.
דוגמה
הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה DoEvents כדי לגרום לביצוע לתשואה למערכת ההפעלה פעם אחת בכל 1,000 איתאציות של הלולאה. DoEvents מחזיר את מספר הטפסים הפתוחים של Visual Basic, אך רק כאשר היישום המארח הוא 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.
