Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("inscliente")
TabHost1.AddTab("Accesso","page1")
TabHost1.AddTab("Studio","page2")
TabHost1.AddTab("Immagini","page3")
TabHost1.AddTab("Pagamento","page4")
Scale.ScaleAll(Activity, True)
End Sub
Grazie Luca,Non sbagli; il punto è che Scale con TabHost non funziona bene.
Prova a mettere le view di ogni Tab in un array o list O MAP di pannelli e scalare quelli.
I think the Scale module does not work well with the TabHost (fault of the TabHost, not of the module)
You could try to use an array or a list OR A MAP of panels, one for each tab and scale them.
Provo...grazieNo, crei un array o list o map (io adoro le map!)
private mapPanels as map
mapPanels.ini...
mapPanels.put(1, panel1) ' chiaramente dovrai dichiarare anche i panel
mapPanels.put(2, panel2)
poi "scorri" i tab
for i = 0 to mytabhost.tabcount - 1
mytabhost.currentTab = i
mytabhost.AddTab2("yourTitle", mapPanels.Get(i))
next
piu' o meno, è chiaro che non l'ho provato.
Il contenuto dei panel puoi anche crearlo nel designer.
(nota che io non ho mai usato i tabhost, vado a "occhio" )
P.S. uhm credo sia sbagliato.
Forse non serve il ciclo, basta aggiungere i tabhost.
Scusa Luca,No, crei un array o list o map (io adoro le map!)
private mapPanels as map
mapPanels.ini...
mapPanels.put(1, panel1) ' chiaramente dovrai dichiarare anche i panel
mapPanels.put(2, panel2)
poi "scorri" i tab
for i = 0 to mytabhost.tabcount - 1
mytabhost.currentTab = i
mytabhost.AddTab2("yourTitle", mapPanels.Get(i))
next
piu' o meno, è chiaro che non l'ho provato.
Il contenuto dei panel puoi anche crearlo nel designer.
(nota che io non ho mai usato i tabhost, vado a "occhio" )
P.S. uhm credo sia sbagliato.
Forse non serve il ciclo, basta aggiungere i tabhost.
Private mapPanels As Map
mapPanels.Initialize
mapPanels.put(1, "page1")
mapPanels.put(2, "page2")
mapPanels.put(3, "page3")
mapPanels.put(4, "page4")
Scale.ScaleView(mapPanels.Get(1))
Scale.ScaleView(mapPanels.Get(2))
Scale.ScaleView(mapPanels.Get(3))
Scale.ScaleView(mapPanels.Get(4))
TabHost1.AddTab("Accesso","page1")
TabHost1.AddTab("Studio","page2")
TabHost1.AddTab("Immagini","page3")
TabHost1.AddTab("Pagamento","page4")