Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("1")
NavControl.ShowPage(Page1)
Page1.TopRightButtons = Array( _
CreateFABarButton(Chr(0xF054), "right") _
,CreateFABarButton(Chr(0xF053), "left") _
,CreateFABarButton(Chr(0xF00C), "v") _
,CreateFABarButton(Chr(0xF00D), "x"))
NavControl.ToolBarVisible = True
End Sub
Private Sub CreateFABarButton(text As String, tag As Object) As BarButton
Dim bb As BarButton
Dim b As Button
b.InitializeCustom("BarButton", 0xFF007AFF, 0xFFE3EBF4)
b.CustomLabel.Font = Font.CreateNew2("FontAwesome", 24)
b.Text = text
b.Tag = tag
b.SetLayoutAnimated(0, 1, 0, 0, 30, 40)
bb.InitializeCustom(b)
Return bb
End Sub
Private Sub BarButton_Click
Dim b As Button = Sender
Log(b.Tag & " was clicked")
End Sub