Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim PanelWithSidebar As ClsSlidingSidebar
Private usrclv As CustomListView
End Sub
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("layout1")
' Sidebar initialization
PanelWithSidebar.Initialize(Activity, 200dip, 0, 0, 400, 400)
PanelWithSidebar.SetOnChangeListeners(Me, "Sidebar_onFullyOpen", "Sidebar_onFullyClosed", "Sidebar_onMove")
' Padding removal of the jog_tab_bar drawable
Dim r As Reflector
r.Target = PanelWithSidebar.Sidebar
r.RunMethod4("setPadding", Array As Object(0, 0, 0, 0), Array As String("java.lang.int", "java.lang.int", "java.lang.int", "java.lang.int"))
PanelWithSidebar.Sidebar.AddView(usrclv, 20dip, 20dip, PanelWithSidebar.Sidebar.Width - 40dip, PanelWithSidebar.Sidebar.Height - 40dip)
End Sub