#Region Project Attributes
#MainFormWidth: 300
#MainFormHeight: 300
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
' ShowSplashScreen
' Wait For Splash_Complete
MainForm.Show
Dim b As Button
b.Initialize("button")
b.Text = "click"
MainForm.RootPane.AddNode(b,130,100,50,50)
End Sub
Sub button_click
ShowSplashScreen
Wait For Splash_Complete
End Sub
Sub ShowSplashScreen
Dim sp As Form
sp.Initialize("sp", 600, 600)
sp.SetFormStyle("TRANSPARENT")
sp.BackColor = fx.Colors.Transparent
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
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub