Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private test1 As test
Private obj As Object
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")
test1.Initialize(Me,callbackFnc(obj),1000)
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub Button1_Click
'xui.MsgboxAsync("Hello world!", "B4X")
Log("test")
End Sub
Sub callbackFnc( test11 As Object)
'Log(test11)
End Sub