Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private smiley As Bitmap
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
smiley = LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False)
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(smiley)
n.Build("Title", "Content", "tag1", Me).Notify(4)
End Sub