Sub Class_Globals
Private ActionBar As ACToolBarDark
Private ABHelper As ACActionBar
Private xml As XmlLayoutBuilder
Private bd As BitmapDrawable
End Sub
Public Sub Initialize(Activity1 As Activity)
ActionBar.Initialize("ActionBar")
ActionBar.SetAsActionBar
ActionBar.Title="The Title"
Activity1.AddView(ActionBar, 0, 0, 100%x, 56dip)
bd = xml.GetDrawable("ic_menu_white_24dp")
ActionBar.NavigationIconDrawable=bd
ActionBar.InitMenuListener
End Sub
Private Sub ActionBar_NavigationItemClick
ToastMessageShow("Click", True)
End Sub