سورس اسپلش اسکرین برای بیسیک فور جاوا
[CODE title="b4j" highlight="1,4-6"]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[/CODE]
