Sub Process_Globals
End Sub
Sub Globals
Dim Panel1, Panel2 As Panel
Dim TabHost1 As TabHost
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
'Tabs
TabHost1.AddTab("Page 1", "Page1")
'Listview Panel 2
Panel2.Initialize("Panel2")
ListView1.Initialize("ListView1")
Panel2.AddView(ListView1, 0, 0, 100%x, 100%y)
ListView1.AddTwoLines("test", "test")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Panel1.LoadLayout("Page2")
End Sub