Edit: Cross platform example based on B4XPages https://www.b4x.com/android/forum/threads/b4x-b4xpages-b4xdrawer.120246/ A class that implements a sliding menu. Unlike the nice jfeinstein SlidingMenu library the drawer covers the activity instead of pushing it. It is similar to the various...
www.b4x.com
Worked! But When I Use this Cod:
B4X:
Dim btnThemeWhiteClicked As ColorDrawable
Dim sldWhite As StateListDrawable
sldWhite.Initialize
btnThemeWhiteClicked.Initialize2(Colors.ARGB(85,255,204,76),5000dip,8dip,Colors.RGB(255,247,245))
sldWhite.AddState (sldWhite.State_Pressed ,btnThemeWhiteClicked)
Btn_MenuRight.Background = sldWhite