WD2000: כיצד ליישם עיכוב ב- Visual Basic עבור יישומים

שיטה 1: השתמש ריק עבור... לולאה הבא

החיסרון בשיטה זו הוא כי אין דרך ישירה כדי לקבוע את משך הזמן שבו התוכנית הנדרש להפעלת הלולאה המדויק. משך הזמן תלוי במהירות של המחשב שלך. הקוד הבא פועל לולאה אשר אינו עושה דבר אך להימשך זמן מה.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

שיטה 2: השתמש קריאה ל- API להשעות ביצוע של Word

השתמש קריאה ל- API להשעות את הביצוע של Word עבור פרק זמן קבוע.

Kernel32 מכילה פונקציה השהיית הביצוע של תוכנית ציון פרק הזמן, המצוין באלפיות שניה. עליך להשתמש בפונקציה, אותו תחילה יש להצהיר במקטע ההצהרות כללי של מודול בה היא תהיה בשימוש:

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

השתמש בתחביר הבא כדי לקרוא לפונקציה שינה :

Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub

שיטה 3: השתמש בפעולת השירות OnTime

השתמש בשיטה OnTime כדי לקבוע את משך הזמן שיש להמתין. השיטה OnTime משתמשת בתחביר הבא:

הביטוי. OnTime (מתי, שם, רגישות)מכיוון הארגומנט שם דורש שם מאקרו לפעול, עליך ליצור שתי פקודות מאקרו: המאקרו הראשון כדי להכיל הקריאה לפעולת השירות OnTime ופקודות אחרות הרלוונטיות למאקרו שלך ואת המאקרו השני לפעול כאשר הזמן שהוקצב חלף. המאקרו השני יכול להיות מאקרו "דמה" אינו עושה דבר.

דוגמה זו מפעילה את המאקרו בשם "MyDelayMacro" 15 שניות מרגע שהפעלת הדוגמה.

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

לקבלת מידע נוסף אודות שימוש בשיטת OnTime, ב- Visual Basic Editor, לחץ על עזרה של Microsoft Visual Basic בתפריט עזרה , הקלד שיטת OnTime את המסייע של Office או באשף התשובות ולאחר מכן לחץ על חיפוש כדי להציג הנושא.