/ Snippet Library - View Code

Visual Basic / Forms / Splash without timer

Snippet details

ID: 220

Viewed: 1355

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

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....

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight AllOption Explicit 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 Me.Show '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 Wait sngWaitTime '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 Me.Hide Unload Me 'show the main form Load frmMain frmMain.Show End Sub Private Sub Wait(sngSecs As Single) Dim lStrt As Single lStrt = Timer Do Until Timer - lStrt >= sngSecs DoEvents 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 Exit Do End If End If Loop End Sub
Code
Highlight Allnone

No Reviews to show