Splash Screen

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
%Unicode = 1
#Include "Win32API.inc"
 
%IDC_Graphic = 500
%ID_Timer = 501
 
Global hDlg,hSplash, hFont As Dword
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Splash",250,250,400,400, %WS_Popup To hSplash
   Control Add Graphic, hSplash, %IDC_Graphic, "", 0,0,400,400
   Font New "Tahoma", 72, 1 To hFont
   Graphic Set Font hFont
   Graphic Set Pos (35,125) : Graphic Print "Splash"
   Dialog Show Modal hSplash Call SplashProc
 
   Dialog New Pixels, 0, "Main",300,300,600,600, %WS_OverlappedWindow To hDlg
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function SplashProc() As Long
   Select Case Cb.Msg
      Case %WM_InitDialog
         SetTimer(hSplash, %ID_Timer, 3000, ByVal %NULL)
      Case %WM_Timer
         Dialog End hSplash
   End Select
End Function
 
CallBack Function DlgProc() As Long
   Select Case Cb.Msg
   End Select
End Function   

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm