كود ايقاف

وعليكم السلام

يمكنا إنشاء دالة نستخدم فيها While علي ان نقوم بتكرراها بزمن التاخير الذي نريد

قم بإنشاء وحدة نمطية جديدة باي أسم والصق فيها الامر التالي:

Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause

    Dim PauseTime As Variant, start As Variant

    PauseTime = NumberOfSeconds
    start = Timer
    Do While Timer < start + PauseTime
    DoEvents
    Loop

Exit_Pause:
    Exit Function

Err_Pause:
    msgbox Err.Number & " - " & Err.Description, vbCritical, "Pause()"
    Resume Exit_Pause

End Function

ثم نقوم بتشغيل هذه الـ Function من اي مكان داخل البرنامج ونحدد لها عدد الثواني المراد انتظارها:

Pause(5)

في هذا الامر نقوم بتعطيل الامر لمدة 5 ثواني.

قمت بإنشاء مثال لك يقوم بإظهار رسالة بها نص "السلام عليكم" تظهر بعد عدد ثواني تحددها في مربع نص

* هذا الكود موجود علي الانترنت وليس انا من قمت بكتابته.

حمل المرفق

Pause.rar

موفق ان شاء الله

ممتاز

وفقك الله