Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w

by Jonathan Liu (9 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 7^th February 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while waiting and uses the multimedia timer for

API Declarations
'by Buttress Root Software ' 'Programmed by Jonathan Liu 'Copyright ©1999-2371 Buttress Root Software. All rights reserved. Private Declare Function GetTickCount Lib "kernel32" () As Long

Rate Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w



Sub Wait(ByVal dblMilliseconds As Double)
Dim dblStart As Double
Dim dblEnd As Double
Dim dblTickCount As Double

dblTickCount = GetTickCount()
dblStart = GetTickCount()
dblEnd = GetTickCount + dblMilliseconds

Do
DoEvents
dblTickCount = GetTickCount()
Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
End Sub

Download this snippet Add to My Saved Code

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w Comments

No comments have been posted about Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w. Why not be the first to post a comment about Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w.

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w Comments

Post your comment

Difficulty