#Region Project Attributes
#ApplicationLabel: MultiSpinner
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
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.
Private ms1, ms2 As MultiSpinner
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")
ms1.SpinnerData = Array As String("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")
ms1.ShowTheSpinner
ms1.Selected = Array As Boolean(True, False, True, False, True, False, True)
ms2.SpinnerData = Array As String("Mercedes Benz", "BMW", "Nissan", "Toyota", "Hyundai", "Mitsubishi")
' if commented out then by default all will be unselected
' ms2.Selected = Array As Boolean(True, False, True, False, True, False)
ms2.ShowToastMessage = False
ms2.ShowTheSpinner
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ms1_selected
Dim selectitems() As Boolean
selectitems = ms1.Selected
For i = 0 To selectitems.Length - 1
Log("ms1 item " & i & " = " & selectitems(i))
Next
Log (" ")
End Sub
Sub ms2_selected
Dim selectitems() As Boolean
selectitems = ms2.Selected
For i = 0 To selectitems.Length - 1
Log("ms2 item " & i & " = " & selectitems(i))
Next
Log(" ")
End Sub
Sub ms1_cancelled
Log("ms1 Cancel clicked")
Log(" ")
End Sub
Sub ms2_cancelled
Log("ms2 Cancel clicked")
Log(" ")
End Sub
