منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
A simple Wait Function - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33)
+---- الموضوع : A simple Wait Function (/showthread.php?tid=30950)



A simple Wait Function - viv - 17-08-19

كود :
'**************************************
'Windows API/Global Declarations for :A simple Wait Function
'**************************************
Public Declare Function GetTickCount Lib "kernel32.dll" () As Long


كود :
            '**************************************
' Name: A simple Wait Function
' Description:Ur code waits for X seconds without stopping complete VB like most others (incl. Sleep Api)
' By: PrixM (from psc cd)
'
' Assumes:'Set the API Declaration and the Code into a Module
'to use the function Wait(x) x stands for the amount of seconds to wait
'**************************************

Public Function Wait(ByVal TimeToWait As Long) 'Time in seconds
Dim EndTime As Long
EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Cause u give seconds and GetTickCount uses Milliseconds
Do Until GetTickCount > EndTime
DoEvents
Loop
End Function



RE: A simple Wait Function - Ahmed_Mansoor - 18-08-19

السلام عليكم ورحمة الله وبركاته

أهلا بك أخي الكريم , كود جميل ومفيد , بارك الله فيك وجزاك الله كل خير .