Added: Apr 29, 2002
Snippet uploaded by: snippet
Written By: unknown
Demo: Sorry, no demo
Once again I cannot advocate using the Sleep function for anything because there is a possibility that it will cause your app to stop responding here is my example of how to use a splash screen....
Highlight all by clicking in box
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Sub Form_Load()
Dim sngWaitTime As Single
sngWaitTime = 5
'assure the splash form gets displayed
'set the splash screen to stay on top
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
'wait 5 seconds
'splash screen no longer needs to be on top
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, 0
'hide and unload the splash screen
'show the main form
Private Sub Wait(sngSecs As Single)
Dim lStrt As Single
lStrt = Timer
Do Until Timer - lStrt >= sngSecs
If Timer < lStrt Then
'this condition just in case timer resets to 0 at 'midnight so that this sub will not get stuck in 'an endless loop
If (86400 + Timer) - lStrt >= sngSecs Then
No Comments to show
Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.
Adding your comment. Please wait...
Thanks for adding your comment!. After further review it will be added.
There was a problem adding your comment. Please try again.
Please complete all the fields in the form before sending.