جناب شاهدی ممنون میشم یه لایوت و سورس جستجو با اتو کمپلت ادیت تکست برای این کتابخونه بزارید.
من این کارو انجام دادم تو نمایش نتایج در لیست ویوو به مشکل برخوردم.clear به درستی عمل نمی کنه.
کدامو اینجا می زارم.
If EditText1.Text = "" Then
l1.Clear
l2.Clear
l3.Clear
End If
arialistvie.Initialize("")
Panel1.AddView(arialistvie,0,0,100%x,100%y)
l1.Initialize
l2.Initialize
l3.Initialize
Dim cur As Cursor
cur = SQL2.ExecQuery("SELECT * FROM table1 WHERE farsi LIKE '%" & EditText1.Text & "%'")
l1.Clear
l2.Clear
l1.Clear
For i = 0 To cur.RowCount-1
cur.Position = i
l1.Add(cur.GetString("farsi"))
l2.Add(cur.GetString("latin"))
l3.Add("1a.png")
Next
ariaadaptor.Initialize("layout_image_right",l1,l2,l3).ToListView(arialistvie)