ub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private TabStrip1 As TabStrip
Private CurrentPage As Int
Private Panel1Dump(100) As Panel
Private Label1 As Label
Private CheckBox1 As CheckBox
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
For i=0 To 20
Panel1Dump(i).Initialize(Me)
TabStripExt.InsertPage(TabStrip1,i,Panel1Dump(i),"Titel"&i)
Next
TabStrip1_PageSelected(0)
End Sub
Sub TabStrip1_PageSelected (Position As Int)
Log($"Current page: ${Position}"$)
Panel1Dump(CurrentPage).RemoveAllViews
Panel1Dump(Position).LoadLayout("Leeg")
Label1.Text=Label1.Text&": "&Position
CurrentPage=Position
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CheckBox1_CheckedChange(Checked As Boolean)
If(Checked) Then
Label1.Visible=False
Else
Label1.Visible=True
End If
End Sub