Sub Globals
Dim autoSpinner As Spinner
Dim titleQuantity As Int = 0
Private Button1 As Button
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")
For titleQuantity = 0 To 4
autoSpinner.Initialize("Spinner"&titleQuantity)
autoSpinner.Add("test1")
autoSpinner.Add("test2")
autoSpinner.Add("test3")
Activity.AddView(autoSpinner,10dip,(titleQuantity*80)+10dip,100dip,60dip)
Next
End Sub
Sub Button1_Click
For titleQuantity = 0 To 4
' "Spinner"&titleQuantity : Spinner0,Spinner1,Spinner2,Spinner3,Spinner4
Dim autoSpinnerValue As Spinner
autoSpinnerValue = Sender
Msgbox(autoSpinnerValue.SelectedItem,"")
Next
End Sub