منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود لتأجيل تنفيذ الكود بدون Timer!
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
يمكننا تأجيل تنفيذ الكود بالثواني من دون أداة Timer فقط Command1
كود :
Public Sub Delay(Times As Double)
TempTime = DateAdd("s", Times, Now)
While TempTime > Now
DoEvents
Wend
End Sub
'==============
Private Sub Command1_Click()
Delay 5
MsgBox "test"
End Sub
ياصديقي الفينكش غلط بفيجول 10
لان byval تنكتب غصب والكود مايقبل