لغات البرمجة

قواعد البيانات

دليل المواقع التخصصية

تأجيل تنفيذ الكود لفترة معينة

  • طباعة
التفاصيل
الزيارات: 3797

كود: 



Public Sub Delay(HowLong As Date)


TempTime = DateAdd("s", HowLong, Now)


While TempTime > Now


DoEvents


Wend


End Sub




Private Sub Command1_Click()


Delay 5


MsgBox "test"


End Sub
Share |

معلومات إضافية