Sub Process_Globals
LogColor("MAIN : Process_Globals",Colors.Blue)
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
LogColor("MAIN : Globals",Colors.Blue)
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
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("Layout1")
Activity.Title=""
ToastMessageShow("Menu 1",True)
' MENU DI BOTTONI #1
Dim Lista As List
Lista.Initialize
Dim Testi() As String
Testi = Array As String("MENU 1","","Voce 1", "Voce 2" , "Voce 3" , "Voce 4", "Voce 5", "Voce 6" , "Esci dal programma","")
'Lista.Add(Testi)
CallSubDelayed2(Menu,"Semplice_a_bottoni",Testi)
LogColor("Bottone > " & Menu.ritorno,Colors.Magenta)
LogColor("Risultato è " & Menu.ritorno,Colors.Magenta)
ToastMessageShow("Menu 2",True)
' MENU DI BOTTONI #2
Dim Lista As List
Lista.Initialize
Dim Testi() As String
Testi = Array As String("MENU 2","","Voce2 1", "Voce2 2" , "Voce2 3" , "Voce2 4", "Voce2 5", "Voce2 6" , "Esci dal programma 2","")
'Lista.Add(Testi)
CallSub2(Menu,"Semplice_a_bottoni",Testi)
LogColor("Bottone > " & Menu.ritorno,Colors.Magenta)
LogColor("Risultato è " & Menu.ritorno,Colors.Magenta)
ToastMessageShow("Finito",True)
End Sub