Italian Dubbio su TabHost con slide

[great_mirko]

Ciao a tutti.
Ho un dubbio sul TabHost. Come faccio per passare da un tab ad un altro, con il movimento slide?Oppure non lo fa il TabHost e devo usare un altro controllo?

Grazie mille..

 

[arenaluigi]

Prova a dare un occhio a questa libreria di Dominex.
http://www.b4x.com/forum/additional-libraries-classes-official-updates/23303-class-multi-type-slidingpanels.html#post135139

 

[maxware]

Ciao Great
Io per AlfaDeskSb ho usato la libreria AHViewPager
con GotoPage vai da una pagina ad un altra con effetto slide o np
oggetto.gotopage(n° pagina, smooth true o false )
Ciaooo
Mamo

 

[great_mirko]

Grazie ad entrambi. Più tardi provo e vi dico con quale son riuscito..

 

[great_mirko]

Ottimo Ragazzi. Ci ho perso un ora per capire come implementare questa libreria, ma alla fine ho avuto la meglio. Vi posto il codice in caso serva a qualcun'altro..

Sub Globals
'   Dim tbHScegliPizza As TabHost
   Dim Pagina As AHViewPager
   Dim Contenitore As AHPageContainer
   Dim Pannello(3) As Panel
   Dim FixTab As AHViewPagerFixedTabs
End Sub

Sub Activity_Create(FirstTime As Boolean)

   Contenitore.Initialize
   Pannello(0).Initialize("")
   Pannello(1).Initialize("")
   Pannello(2).Initialize("")
   For i = 0 To 2
      If i = 0 Then
         Pannello(0).LoadLayout("Tab1")
         Contenitore.AddPage(Pannello(0), "Pomodoro")
         Else If i = 1 Then
         Pannello(1).LoadLayout("Tab2")
            Contenitore.AddPage(Pannello(1), "Mozzarela e Pomodoro")
            Else
            Pannello(2).LoadLayout("Tab3")
            Contenitore.AddPage(Pannello(2), "Bianca")
      End If
   Next
   Pagina.Initialize(Contenitore, "Pagina")
   FixTab.Initialize(Pagina)
   FixTab.UpperCaseTitle = True
   Activity.AddView(FixTab, 0, 0, 100%x, 50dip)
   Activity.AddView(Pagina, 0, 60dip, Activity.Width, Activity.Height-108dip)
End Sub

Ultima cosa. Volevo chiedere se si riesce a fare in modo che una volta ch si fa lo slide dall'ultima tab, si ritorna alla prima in modo quindi continuato. Grazie mille...

 

[giannimaione]

   For i = 0 To 2
      If i = 0 Then
         Pannello(0).LoadLayout("Tab1")
         Contenitore.AddPage(Pannello(0), "Pomodoro")
         Else If i = 1 Then
         Pannello(1).LoadLayout("Tab2")
            Contenitore.AddPage(Pannello(1), "Mozzarela e Pomodoro")
            Else
            Pannello(2).LoadLayout("Tab3")
            Contenitore.AddPage(Pannello(2), "Bianca")
      End If
   Next

Pannello(0).LoadLayout("Tab1")
Contenitore.AddPage(Pannello(0), "Pomodoro")
Pannello(1).LoadLayout("Tab2")
Contenitore.AddPage(Pannello(1), "a pizza ca pummarola ncopp")
Pannello(2).LoadLayout("Tab3")
Contenitore.AddPage(Pannello(2), "Bianca")