Sub Globals
' añade estas dos lineas
Dim sv2 As SearchView ' **** importante que sea otro nombre ya que en el ejemplo existe ese nombre ********
Dim index As Object
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("layout1")
'*** COMENTO TODAS ESAS LINEAS PARA APROVECHAR TU CODIGO Y QUE SOLO SE VEA LO QUE TU QUIERES ***
'ScrollView1.Panel.LoadLayout("lay_scrollview")
'ScrollView1.Panel.Height = Panel6.Top + Panel6.Height + 8dip
'ACSpinner1.AddAll(Array As String ("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"))
'ACSpinner2.AddAll(Array As String ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"))
'Ad some Action Menu items
'ACActionMenu1.Menu.Add(1, 1, "Menu1", Null)
'ACSubmenu1 = ACActionMenu1.Menu.AddSubMenu(1, 2, 2, "Submenu")
'ACSubmenu1.Add(101, 1, "Submenu Item 1", Null)
'ACSubmenu1.Add(102, 2, "Submenu Item 2", Null)
'ACActionMenu1.Menu.Add(3, 3, "MenuItem 2", Null)
' ********* añadimos el mismo código del ejemplo de Searchview **************
sv2.Initialize(Me, "sv")
sv2.AddToParent(Activity, 0, 0, 200dip, 300dip)
If FirstTime Then
Dim cities As List
cities = File.ReadList(File.DirAssets, "Cities.txt")
'As an optimization we store the index as a process global variable
'and only build it once.
index = sv2.SetItems(cities)
Else
sv2.SetIndex(index)
End If
End Sub
Sub Search_QueryChanged (Query As String)
sv2.et_TextChanged(Query,Query) ' ******* añade este código al evento **********
Log("Query changed: " & Query)
End Sub