كود ايقاف

[ابو فتحى 1]

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

و كل عام و انتم بخير 

هل يوجد كود ايقاف لتنفيذ امر الطابعة لثوانى حتى يتم تغيير الطابعة الافتراضى للويندوز

[Hisham_wz 62]

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

يمكنا إنشاء دالة نستخدم فيها 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

 

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

 

 

[kemas 32]

ممتاز

وفقك الله