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

ضع هذه الاجراء فى القسم العام للنافذه أو فى مديول

Private Sub MySleep (dblTime As Double)
	Dim EndTime As Double
	EndTime = Timer + dblTime
	While EndTime > Timer
		DoEvents
	Wend
End Sub

وعندما ترغب فى إستخدام هذا الاجراء إستخدم الجملة الاتيه

MySleep n

حيث n هى العدد المستخدم بالثوانى

السلام عليكم

الأخ الكريم :بنفس البساطة هناك دالة أيضا إسمها sleep ولاستخدامها فقط قم بوضع هذا السطر في قسم التعريفات العامة للــ Form

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

ومكنك مناداة الدالة من أي مكان في الـــ Form كالتالي

Sleep (Value)

حيث value هي مدة التأخير بالميلي ثانية أي إذا أردت تأخير الكود ثانية واحدة فإن قيمة value هي 1000 .

وإذا أردت أن تستخدم الدالة من أي Form فيمكنك وضع تعريف الدالة السابق في Module مع تغيير Private إلى Public .

تحياتي .....،،،،،،،

نسيت أن أقول لك بأن دالة Sleep تجمد كل نشاطات البرنامج إلى أن تنتهي مدة التأخير . أما إذا أردت أن يكون البرنامج فعالا أي يتسطيع تأدية الوظائف الأخرى عليك إستخدام طريق الأستاذ / رمضان.

شكرا لكم اخوانى والحمد لله الحلول اللى قولتلو عليها تمام وفدتنى