Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Public WobbleMenu1 As WobbleMenu
'B4xPages
Public pg1 As B4XPage1
Public pg2 As B4XPage2
Public pgSettings As B4XPageSettings
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
pgSettings.Initialize
B4XPages.AddPage("pgSettings", pgSettings)
pg1.Initialize
B4XPages.AddPageAndCreate("pg1", pg1)
pg2.Initialize
B4XPages.AddPageAndCreate("pg2", pg2)
createMenu
End Sub
' ******************** Wobble Menu *****************************************
Private Sub createMenu()
WobbleMenu1.SetTabTextIcon(1,"Πρόγραμμα",Chr(0xF009),Typeface.FONTAWESOME)
WobbleMenu1.SetTabTextIcon(2,"Παρουσίες",Chr(0xF0CA),Typeface.FONTAWESOME)
WobbleMenu1.SetTabTextIcon(3,"Οικονομικά",Chr(0xF0EC),Typeface.FONTAWESOME)
End Sub
Sub WobbleMenu1_Tab1Click
End Sub
Sub WobbleMenu1_Tab2Click
WobbleMenu1.SetCurrentTab(2)
B4XPages.ShowPageAndRemovePreviousPages("pg1")
End Sub
Sub WobbleMenu1_Tab3Click
WobbleMenu1.SetCurrentTab(3)
B4XPages.ShowPageAndRemovePreviousPages("pg2")
End Sub
' ******************** Wobble Menu Ends Here***********************************