[Samosoft]

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

[amgad525]

PHP كود :

Me.Table1BindingSource.Filter = "[Customer_Name] LIKE '%" & Me.TextBox1.Text.Trim & "%'" 


[Samosoft]

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

[amgad525]

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 


[Samosoft]

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