Sub Activity_Create(FirstTime As Boolean)
LogColor("TAB_Main : Activity_Create",Colors.blue)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("TAB_Main")
Label1.SetLayout(0%x,0%y,100%x,5%y)
Label1.text="Testo"
TabHost1.SetLayout(0%x,5%y,100%x,95%y)
TabHost1.AddTab("Vano","Pagina_1")
TabHost1.AddTab("Man. Lignei","Pagina_2")
TabHost1.AddTab("Man. Metallici","Pagina_3")
TabHost1.AddTab("Lista Voaci","Lista_TAB")
End Sub
Sub Activity_Resume
LogColor("TAB_Main : Activity_Resume",Colors.blue)
Visualizza_Pannello
End Sub
Sub Activity_Pause (UserClosed As Boolean)
LogColor("TAB_Main : Activity_Pause",Colors.blue)
End Sub
Sub Visualizza_Pannello
LogColor("TAB_Main : Visualizza_Pannello",Colors.blue)
Button1.RemoveView
ListView1.Removeview
ScrollView1.RemoveView
' POPOLA ACTIVITY
ScrollView1.Initialize(1000dip)
Activity.AddView(ScrollView1,0%x,0%y,100%y,90%y)
ScrollView1_Vano.Panel.Height=200%x
Activity.AddView(Button1,0%x,90%y,50%x,10%y) : Button1.Text = "Inserisci in Lista TAB"
' POPOLA LISTVIEW
ScrollView1.Panel.AddView(ListView1,0%x,0%y,100%x,20%y)
ListView1.Color = Colors.Blue
End Sub