Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim MenuMap As Map
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim MioMenu As MultiSelect
Private PanelMain As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
MenuMap.Initialize
MioMenu.Initialize("MioMenu")
MioMenu.AddList("Menu 1",Array As String("Voce 1", "Voce 2" , "Voce 3" , "Voce 4", "Voce 5", "Voce 6"))
MioMenu.AddList("Menu 2",Array As String("2) Voce 1", "2) Voce 2" , "2) Voce 3" , "2) Voce 4", "2) Voce 5", "2) Voce 6"))
MioMenu.AddList("Menu 3",Array As String("3) Voce 1", "3) Voce 2" , "3) Voce 3" , "3) Voce 4", "3) Voce 5", "3) Voce 6"))
End Sub
Sub MioMenu_result(M As Map)
For i=0 To M.Size-1
Log(M.GetValueAt(i))
Next
LogColor(MioMenu.GetResponse("Menu 1"),Colors.Red)
End Sub
Sub ButtonRestart_Click
MioMenu.RestartMenu
End Sub
