Sub Globals
Dim MyLv As ListView
Dim sp As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
sp.Initialize("sp")
sp.AddAll(Array As String("Erel", "Klaus", "DonManfred", "Johan Schoeman"))
Activity.AddView(sp, 0, 600dip, 200dip, 50dip)
MyLv.Initialize("MyLV")
Activity.AddView(MyLv,0,0,100%x,575dip)
For i=0 To 19
MyLv.AddSingleLine2("B4A rocks" & i, "B4A" & i)
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub MyLV_ItemClick (Position As Int, Value As Object)
Msgbox("I chose: " & Value,"Selected Item")
sp.Add(Value)
sp.Invalidate
End Sub