ظهور رسالة MsgBox في وقت معين
صفحة 1 من اصل 1
ظهور رسالة MsgBox في وقت معين
أضف زر أمر Command1
ضع الكود التالي في قسم التصريحات General:
Public Sub Delay(HowLong As Date)
TempTime = DateAdd('s', HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
ضع السطر التالي في الزر أو في أي مكان أخر
Delay 5
MsgBox ' منتديات المبرمجون الاقباط', vbExclamation, ' منتدى'
ضع الكود التالي في قسم التصريحات General:
Public Sub Delay(HowLong As Date)
TempTime = DateAdd('s', HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
ضع السطر التالي في الزر أو في أي مكان أخر
Delay 5
MsgBox ' منتديات المبرمجون الاقباط', vbExclamation, ' منتدى'
Coptic_Programmer- مشرف برامج
- المساهمات : 43
تاريخ التسجيل : 29/10/2008
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى