Private Sub subCreateIconicBarButton (booleanUseFontAwesome As Boolean, intCode As Int, intTextColorNormal As Int, intTextColorHighLighted As Int, floatFontSize As Float, objectTag As Object) As BarButton
Dim barbuttonInstance As BarButton
Dim buttonInstance As Button
buttonInstance.InitializeCustom ("barButton", intTextColorNormal, intTextColorHighLighted)
If booleanUseFontAwesome Then buttonInstance.CustomLabel.Font = Font.CreateFontAwesome (floatFontSize) Else buttonInstance.CustomLabel.Font = Font.CreateMaterialIcons (floatFontSize)
buttonInstance.Text = Chr (intCode)
buttonInstance.Tag = objectTag
buttonInstance.SetLayoutAnimated (0, 1, 0, 0, floatFontSize, floatFontSize)
barbuttonInstance.InitializeCustom (buttonInstance)
Return barbuttonInstance
End Sub
Private Sub barButton_Click
Dim b As Button = Sender
If b.Tag = "hamburger" Then
Drawer.LeftOpen = Not(Drawer.LeftOpen)
End If
End Sub