#Region Project Attributes
#MainFormWidth: -1
#MainFormHeight: -1
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private b1 As Button
Private b2 As Button
Private b3 As Button
Private b4 As Button
Private b5 As Button
Private b6 As Button
Private Toast As ToastMessageShow
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("CutomToast") 'Load the layout file.
Toast.Initialize("Toast")
Toast.ToastIconSize32x32
Toast.ToastDuration = 6 'Toast.TOAST_LONG_DELAY
Toast.ToastTextLocation = Toast.TEXT_CENTER
Toast.ToastLocation= Toast.TOAST_CENTER_RIGHT
'******************************************
Toast.ToastNotificationOwner = MainForm 'this declaration Important
'******************************************
MainForm.Show
End Sub
Sub b1_MouseClicked (EventData As MouseEvent)
Toast.ToastMessageColor = fx.Colors.White
Toast.ToastShow("This is a Toast with message")
End Sub
Sub b2_MouseClicked (EventData As MouseEvent)
Toast.ToastTitleColor = fx.Colors.Red
Toast.ToastMessageColor = fx.Colors.Yellow
Toast.ToastShow2("Title","This is a Toast with title and message")
End Sub
Sub b3_MouseClicked (EventData As MouseEvent)
Dim icon As Image
icon.Initialize(File.DirAssets,"info.png")
Toast.ToastMessageColor = fx.Colors.Green
Toast.ToastShow3("This is a Toast with message and icon",icon)
End Sub
Sub b4_MouseClicked (EventData As MouseEvent)
Toast.ToastTitleColor = fx.Colors.Cyan
Toast.ToastMessageColor = fx.Colors.Yellow
Toast.ToastShow4("Title","This is a Toast with title, message and icon",Toast.TOAST_SUCCESS_ICON)
End Sub
Sub b5_MouseClicked (EventData As MouseEvent)
Toast.ToastTitleColor = fx.Colors.Blue
Toast.ToastShow5("Title and icon",Toast.TOAST_ERROR_ICON)
End Sub
Sub b6_MouseClicked (EventData As MouseEvent)
Toast.ToastShow6(Toast.TOAST_INFO_ICON)
End Sub
Sub MainForm_CloseRequest (EventData As Event)
Toast.ToastStop
End Sub