تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
A simple Wait Function
#1
كود :
'**************************************
'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
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#2
السلام عليكم ورحمة الله وبركاته

أهلا بك أخي الكريم , كود جميل ومفيد , بارك الله فيك وجزاك الله كل خير .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: viv , viv , Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  a AutoComplete Very Simple! viv 3 234 17-09-19, 12:36 AM
آخر رد: ahmed.m

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


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