Simple sub to create a splash screen.
Project is attached.
Edit: sp.Close was missing.
B4X:
Sub ShowSplashScreen
Dim sp As Form
sp.Initialize("sp", 600, 600)
sp.SetFormStyle("TRANSPARENT")
sp.BackColor = fx.Colors.Transparent
'change image here
CSSUtils.SetBackgroundImage(sp.RootPane, File.DirAssets, "B4R_512_512_transparent.png")
sp.Show
sp.RootPane.Alpha = 0
sp.RootPane.SetAlphaAnimated(500, 1)
Wait For (sp.RootPane) sp_AnimationCompleted
Sleep(3000)
sp.RootPane.SetAlphaAnimated(1000, 0)
Wait For (sp.RootPane) sp_AnimationCompleted
sp.Close
CallSubDelayed(Me, "Splash_Complete")
End Sub
Project is attached.
Edit: sp.Close was missing.
Attachments
Last edited: