تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود لتأجيل تنفيذ الكود بدون Timer!
#1
Lightbulb 
يمكننا تأجيل تنفيذ الكود بالثواني من دون أداة 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
عمر داوود
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تنفيذ تقرير و ارسال ايميل aboezzat84 1 51 29-11-17, 03:03 PM
آخر رد: Amir_alzubidy
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 108 30-09-17, 08:27 PM
آخر رد: bidaya
Question [vb6.0] هل يمكن تنفيذ اومر دوس من خلال فجوال البيسك 6 ؟؟ Microformt 2 144 01-09-17, 12:27 AM
آخر رد: Microformt
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 153 08-08-17, 03:09 AM
آخر رد: allobaed
Question [vb6.0] كيف انشي (Timer) بعد عشر دقايق بضبط يظهر لي رسالة ترحيب ؟؟ Microformt 1 143 07-08-17, 11:44 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] طريقة تنفيذ كود عند الكليك على الزر و تنفيذ كود اخر عند اعادة الكليك عليه larbihamri 3 176 29-07-17, 05:12 PM
آخر رد: larbihamri
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 240 26-05-17, 12:15 PM
آخر رد: larbihamri
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 227 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  خطاء ارجو تصحيح الكود عمر سالم 5 375 10-02-17, 06:18 PM
آخر رد: sendbad100
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 481 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم