[B4X] [XUI] AS AutoComplete based on AS SelectionList
This is an AutoComplete view, which is compatible with B4XFloatTextField, AS_TextFieldAdvanced, EditText (B4A), TextField (B4i) and TextField (B4J) I spend a lot of time in creating views, like this and to create a high quality view cost a lot of time. If you want to support me and further...
www.b4x.com
In this example I will show you how you can use your own data source and also display icons.
In this example I use a SQLite database with all countries and flags
Custom Datasource
If you have not specified a data source, the
RequestNewData event is triggered every time the search text changes.When the event is triggered, a snapshot of the layout is created, the list is emptied and only filled when SetNewData is added with the new items.
Example
B4X:
Private Sub AS_AutoComplete1_RequestNewData(SearchText As String)
Dim lstItems As List 'New List of AS_SelectionList_Item
lstItems.Initialize
'SQL query based on the search text
Dim DR As ResultSet = sql1.ExecQuery2("SELECT * FROM dt_Country WHERE name LIKE ? ORDER BY name ASC",Array As String("%" & SearchText & "%"))
Do While DR.NextRow
'This is only required in this example, otherwise the flag emojis will not be displayed
Dim Buffer() As Byte
Buffer = DR.GetBlob("flag")
Dim FlagEmoji As String = BytesToString(Buffer,0,Buffer.Length,"UTF-8")
'Add item to the list
lstItems.Add(AS_AutoComplete1.CreateItem(DR.GetString("name"),AS_AutoComplete1.TextToBitmap(FlagEmoji,xui.CreateDefaultFont(25),xui.Color_Black),DR.GetString("code")))
Loop
DR.Close
AS_AutoComplete1.SetNewData(lstItems) 'Pass the list of items
End SubExample Project is attached
