منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(25-09-18, 06:57 AM)911 كتب : [ -> ]

كود :

Public Sub Delay(millisecondsDelay As Integer)
   Dim sw As New Stopwatch : sw.Start()
   While sw.ElapsedMilliseconds < millisecondsDelay
       Application.DoEvents()
   End While
End Sub

#s3gt_translate_tooltip_mini { display: none !important; }

على اى حال جرب هذا الكود لعله يعمل معك على الاصدار الفريم

(25-09-18, 11:30 AM)elgokr كتب : [ -> ]

وعليكم السلام ورحمة الله وبركاته

هو بما انك تريد انتظار مدة ما ليتم استكمال الكود يمكنك من طرق عديدة

اما ان تكون عن طريق كود تحقق مع goto والتحقق ده للقيمة سيتم اخذها من تايمر

وما غير ذلك كثير 

على اى حال جرب هذا الكود لعله يعمل معك على الاصدار الفريم

كود :

System.Threading.Thread.Sleep(5)

تحياتى لك

وتمنياتى لك التوفيق

اولاً لنقول ان لدينا الكود كالتالى كمثال



ثانياً ناتى على كزد تنفيذ حدث الزر وليتحول الكود الى هذا الشكل

الان ناتى فى حدث الـ Timer ونقوم باضافة الكود الثاني وهو

(25-09-18, 11:09 PM)elgokr كتب : [ -> ]

لا عليك اخى ابو روضة

فى هذه الحالة خلينى اوضح لك كيفية اتمام المطلوب بصورة صحيحة

وهنا انت لا تحتاج الى كود انتظار لاتمام تنفيذ كود

كل ما سيتم عمله هو فكرة يمكنك تطبقها وستقوم بالغرض المطلوب تماماً

وهى افضل من المحاولة والبحث عن اى كود وانا واعوذ بالله من كلمة انا عن نفسي 

اذا كنت اريد تطبيق الفكرة ساقوم بتطبيق التالى

اولاً لنقول ان لدينا الكود كالتالى كمثال

كود :

MsgBox("Welcome...")
MsgBox("Now Ok.")

لنقول مطلوب ظهور الرسالة الاولى وبعد مرور 5 ثواني يتم عرض الرسالة الثانية

طيب كيف يتم فعل ذلك وبخطوات بسيطة وسهلة

اولاً قم بانشاء اداء Timer واجعل الوقت الخاص به 5000 ولا تقوم بتفعيله اجعله False

ثانياً ناتى على كزد تنفيذ حدث الزر وليتحول الكود الى هذا الشكل

كود :

       MsgBox("Welcome...")
       Timer1.Start()

الان ناتى فى حدث الـ Timer ونقوم باضافة الكود الثاني وهو

كود :

       MsgBox("Now Ok :).")
       Timer1.Stop()

وبكده تكون طبقت المطلوب بدون عناء وبدون اى مشكلة

الان انت لديك الفكرة يمكنك تطويرها ببعض اللمسات زى عمل Sub وما شبه

بحيث يمكنك استفادة من الامر لنفس الـ Timer الى اكثر من مكان وليس لهذا الجزء فقط

اتمنى ان اكون سهلت عليك الامر

وان الان اصبح الامور ابسط مما كنت تريد فعله

تحياتى لك

وتمنياتى لك التوفيق