Sub Globals
Private ComboBoxDays As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim Days() As String
' Fill list with text
Days = Array As String("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
' Create ComboBox with text
ComboBoxDays.initialize("")
Activity.AddView(ComboBoxDays, 50dip, 200dip, 300dip, 90dip)
ComboBoxDays.Color=Colors.DarkGray
ComboBoxDays.TextSize=32
ComboBoxDays.TextColor=Colors.White
ComboBoxDays.AddAll(Days)
End Sub
Sub ComboBoxDays_ItemClick (Position As Int, Value As Object)
Log ("Clicked Position: " & Position)
End Sub