Sub Globals
Dim bar As StdActionBar
Private vp As StdViewPager
Private panelPfeil, panelKarte, panelZiel As Panel
Private panelTest As Panel
..
..
end sub
Sub Init_Grafik
panelPfeil.Initialize("")
panelKarte.Initialize("")
panelZiel.Initialize("")
panelTest.Initialize("")
Dim height As Int = CalculateHeight(True, False)
vp.Initialize("vp",4 , 100%x, height)
Activity.AddView(vp.AsView, 0, 0, 100%x, height)
If Activity.Width<Activity.height Then
vp.Panels(0).addView(panelPfeil, 0,0,100%x, 100%y-50dip)
vp.Panels(1).AddView(panelKarte, 0,0,100%x, 100%y-50dip)
vp.Panels(2).AddView(panelZiel, 0,0,100%x, 100%y-50dip)
vp.Panels(3).AddView(panelTest, 0,0,100%x, 100%y-50dip)
Else
vp.Panels(0).addView(panelPfeil, 0,0,100%x, 100%y)
vp.Panels(1).AddView(panelKarte, 0,0,100%x, 100%y)
vp.Panels(2).AddView(panelZiel, 0,0,100%x, 100%y)
vp.Panels(3).AddView(panelTest, 0,0,100%x, 100%y)
End If
bar.Initialize("bar")
Activity.Title = "Test"
bar.Subtitle = "Version " & Versionsinfo
bar.Icon = IconBitmap
bar.NavigationMode = bar.NAVIGATION_MODE_TABS
bar.AddTab("Pfeil")
bar.AddTab("Karte")
bar.AddTab("Ziel")
bar.AddTab("Test")
bar.ShowUpIndicator =False
bar.SelectedIndex = currentPage
End Sub