كيف تجعل الرنامج يتوقف بين أمرين لمدة زميية معينة

أنا مشترك جديد في هذ الموقع و لكن لدي خبرة 12 سنة في الـ VB و أود أن اشارك الجميع بجموعة من النصائح و الطرق البرمجية بشكل دوري. أود أن تكون مفيدة للجميع:

كيف تجعل الرنامج يتوقف بين أمرين لمدة زميية معينة:

يمكن عمل هذا بأحد الطريقتين التاليتين:

API Call

في بداية البرنامج اكتب السطر التالي:

Declare Auto Function Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long) As Long

هذا المر يعرف الـ API الخاص بأمر Sleep

استخدم الأمر Sleep في أي شطر من البرنامج لتحصل على توقف لفترة زمنية معينة.

الأمر Sleep(1000) i يجعل البرنامج يتوقف لمدة ثانية واحدة لأن الـ Parameter يحسب بالميلي ثانية.

Threads

الطريقة الثانية هي جعل الـ Thread الحالي يتوقف للمدة المطلوبة.

Threading.Thread.CurrentTread.Sleep(1000) i

و من الأفضل وضع الأمر Sleep داخل Sub في Thread مستقلة

Private Sub TrySleepTest()

MsgBox("Message 1")

Threading.Thread.CurrentThread.Sleep(1000)

MsgBox("Message 2")

End Sub

Private Sub TestIt()

Dim Th as New Threading.Thread (AddressOf TrySleepTest)

Th.Start

End Dub

أرجو أن يكون الموضوع واضحاً و مفيدا ...

Hardware