Private searchbox As EditText
Private searchlist As ListView
Dim lst As List
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("main")
lst.Initialize
lst.AddAll(Array As String("TEST 1", "TEST2", "TEST3", "TEST4", "TEST 5", "TEST6", "TEST7", "TEST8", "TEST 9", "TEST10", "TEST11", "TEST12"))
End Sub
Sub searchbox_EnterPressed
Dim lstget As String
For i = 0 To lst.Size - 1
lstget = lst.Get(i)
If lstget.Contains(searchbox.Text) == False Then
lst.RemoveAt(i)
End If
Next
searchlist.Clear
Dim sb As String
For k = 0 To lst.Size - 1
sb = lst.Get(k)
searchlist.AddSingleLine(sb)
Next
searchbox.Visible = True
searchlist.Visible = True
End Sub