• 0
ابو فتحى

كود ايقاف

سؤال

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

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

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

 

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

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ممتاز

وفقك الله

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .