منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
البحث مثل جوجل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث مثل جوجل (/showthread.php?tid=18188)

البحث مثل جوجل - Samosoft - 29-11-16

اخوانى الكرام ...
بحثت داخل المنتدى ولم اجد ما اريدة ..... برجاء المساعدة فى البحث داخل اداة Listbox التى بداخلها مثلا اسماء العملاء وعند البحث بداخلها وكتابة اسم احمد مثلا يقوم بفلترة ما بداخل Listbox ويظهر كل اسامى احمد فقط واخفاء الباقى .... يكون مثل البحث فى جوجل
برجاء المساعدة فى هذا الكود ..... استخدم VB.net 2012

RE: البحث مثل جوجل - amgad525 - 29-11-16

PHP كود :
Me.Table1BindingSource.Filter = "[Customer_Name] LIKE '%" & Me.TextBox1.Text.Trim & "%'" 


RE: البحث مثل جوجل - Samosoft - 29-11-16

اشكرك يا صديقى على الاهتمام
لكن كدا ابحث داخل قاعدة البيانات مش البيانات الموجودة داخل Listbox

RE: البحث مثل جوجل - amgad525 - 29-11-16

PHP كود :
Private listBoxItems As List(Of String)

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    listBoxItems = (From x As String In Me.ListBox1.Items).ToList
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    Dim q = From x As String In listBoxItems Where x.Contains(Me.TextBox1.Text)
    Me.ListBox1.Items.Clear()
    Me.ListBox1.Items.AddRange(q.ToArray)
End Sub 


RE: البحث مثل جوجل - Samosoft - 29-11-16

شكرا على مجهود
الكود ممتاز تسلم ايدك