Sub Globals
Dim MyMenu As AnimatedSlidingMenu
End Sub
Sub Activity_Resume
Activity.LoadLayout("listdesignerfile")
MyMenu.Initialize(Activity, Me, "Collection", "Test", "L", 50dip, 400dip, Colors.Transparent, Null)
MyMenu.AddItem(Icon, "List1", Colors.White, Colors.Transparent, 1)
MyMenu.AddItem(Null, "List2", Colors.White, Colors.Transparent, 2)
MyMenu.AddItem(Null, "List3", Colors.White, Colors.Transparent, 3)
MyMenu.SetTitle(Colors.Transparent, Colors.White, Gravity.CENTER_HORIZONTAL, Null)
MyMenu.OpenMenu("Fade")
End Sub
Sub Activity_Resume
StateManager.RestoreState(Activity,"LIST",0)
End Sub
Sub Activity_Pause(UserClosed As Boolean)
StateManager.SaveState(Activity,"LIST")
End Sub
Sub Click(SelectedItem As Object)
If SelectedItem = 1 Then
Activity.LoadLayout("listdesignerfile1")
End If
If SelectedItem = 2 Then
Activity.LoadLayout("listdesignerfile2")
End If
If SelectedItem = 3 Then
Activity.LoadLayout("listdesignerfile3")
End If
End Sub