Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
'Private lblHello As B4XView
'Private ImageView1 As B4XView
Private Page3 As B4XPage3
Private EditText1 As EditText
Private ListView1 As B4XView
'Private Listview1 as CustomListView
'Private Label As B4XView
End Sub
'You can add more parameters here.
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("Page2")
Page3 = B4XPages.GetPage("Page 3")
' MENUE1
' MENUE2
End Sub
Sub MENUE1
Dim lb As B4XView
Dim MyLabel As Label
MyLabel.Initialize("lb")
lb = MyLabel
lb.Text = "text1 "
lb.As(Label).SingleLine=False
ListView1.AddView(lb,0dip,0dip,100dip,20dip)
End Sub
Sub MENUE2
Dim lb As B4XView
lb.As(Label).Text = "text1"
lb.As(Label).SingleLine=False
ListView1.AddView(lb,0dip,0dip,100dip,20dip)
Dim lb As B4XView
lb.Text = "text2 "
lb.As(Label).SingleLine=False
ListView1.AddView(lb,0dip,0dip,100dip,20dip)
End Sub
Private Sub B4XPage_Appear
'lblHello.Text = $"Hello ${B4XPages.MainPage.txtUser.Text}!"$
UpdateImage
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub btnDraw_Click
B4XPages.ShowPage("Page 2")
End Sub
Sub UpdateImage
If Page3.Panel1.IsInitialized Then
'ImageView1.SetBitmap(Page3.cvs.CreateBitmap)
End If
End Sub
Sub btnSignOut_Click
Page3.ClearImage
UpdateImage
B4XPages.ShowPageAndRemovePreviousPages("MainPage")
End Sub
Private Sub EditText1_TextChanged (Old As String, New As String)
End Sub
Private Sub EditText1_EnterPressed
End Sub
Private Sub EditText1_FocusChanged (HasFocus As Boolean)
End Sub
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
Log(Position&" "&Value)
End Sub
Private Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub
