Spanish Menú "Hamburguer" en B4XMainPage

[lumbanico]

Hola.

Estoy intentando que desde B4XMainPage pueda abrir B4XDrawer desde un icono en la barra de titulo.

He conseguido que me muestre el icono, pero no que haga alguna acción cuando se hace clic en él. Lo único que hace es cerrar la aplicación.

Lo he añadido con

Private Sub B4XPage_Appear
    Sleep(0) '<-- important.
    B4XPages.GetManager.ActionBar.RunMethod("setDisplayHomeAsUpEnabled", Array(True))
    Dim bd As BitmapDrawable
    bd.Initialize(xui.LoadBitmapResize(File.DirAssets, "menu.png", 32dip, 32dip, False)) 'better to load the image once and store it in a global variable.
    B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(bd))
End Sub

Private Sub B4XPage_Disappear
    B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(0))
End Sub

¿Cómo puedo acceder al evento cuando se presiona?

Gracias.

 

[josejad]

Hamburguer menu in the B4xMainPage

Hi, there. I can show a hamburguer menu in a B4xPage, but I don't know haw to do it in the B4xMainPage. I have tried it copying the next code in the Initialize sub and in the B4XPage_Created sub, but in both cases only show the icon in the pages, not in the B4XMainPage: HamburgerIcon =...

www.b4x.com