Sub Process_Globals
End Sub
Sub Globals
Dim lstv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
lstv.Initialize ("lstv")
Dim s As String
Dim v As String
For k=0 To 9
s="this is item " & k
v="item " & k
lstv.AddSingleLine2 (s,s & "//" & v)
Next
Activity.AddView (lstv,0,0,100%x,100%y)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lstv_ItemClick (Position As Int, Value As Object)
Dim ar() As String
ar=Regex.Split ("//",Value)
Msgbox(ar(0),ar(1))
End Sub