+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] كود لتأجيل تنفيذ الكود بدون Timer! (/showthread.php?tid=14822)
كود لتأجيل تنفيذ الكود بدون Timer! - Omar 6.0 - 20-02-16
يمكننا تأجيل تنفيذ الكود بالثواني من دون أداة 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 SubRE: كود لتأجيل تنفيذ الكود بدون Timer! - Gfftfdeuoig c - 19-08-20
ياصديقي الفينكش غلط بفيجول 10
لان byval تنكتب غصب والكود مايقبل