|
-
Mar 16th, 2001, 01:42 PM
#1
Code:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub FreezeApp(ByVal dwSeconds As Long)
dwSeconds = dwSeconds * 1000
Start = GetTickCount
Do While GetTickCount < Start + dwSeconds
Loop
End Sub
Usage:
Code:
FreezeApp Val(Text1)
Print "Done"
-
Mar 18th, 2001, 02:27 AM
#2
Addicted Member
I Think SleepEx Would Also Work. Anyway I'm Not Sure
-
Mar 18th, 2001, 04:39 AM
#3
Monday Morning Lunatic
Both Sleep and SleepEx will work, however SleepEx can be "signalled" to return earlier than stated.
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Mar 18th, 2001, 10:10 AM
#4
We can also use VB's Timer function, thus eliminating the need for API.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|