[عبدالرحمن المكاوي]

بسم الله الرحمن الرحيم
-------------------------------
لديه مشكلة في اداة التيكست بوكس وهي انني قمت ببرمجة كود يقوم بتصفية او عملية بحث داخل اليست بوكس
بمعني انني لديه اكثر من 300 عنصر في اداة التيسكت بوكس فانا ساستخدم اداة التيسكت بوكس لتسهل علي المستخدم
البحث عن العنصر المراد البحث عنه
مثال بسيط اذ كان لديه العناصر التالية في اداة الليست بوكس
mohmaed
abdo
mohamud
amr
عندما اضع حرف m في التيسكت بوكس يختفي من الليست بوكس abdo , amr
ويبقي الباقي وعندما امسح m يعود اليست بوكس الي عناصره الكاملة
اريد تعديل هذا الكود بما سبق وقلته وشكرا لكم

---

PHP كود :

   Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox2.TextChanged
        Dim q As IEnumerable(Of DataRow) = (From x As DataRow In dt Where x.Item("Display").ToString.ToLower.StartsWith(Me.TextBox2.Text.Trim.ToLower))
        hold = True
        Me.ListBox1.DataSource = If(q.Count = 0, Nothing, q.CopyToDataTable)
        Me.ListBox1.DisplayMember = "Display"
        Me.ListBox1.ValueMember = "Value"
        Me.ListBox1.SelectedIndex = -1
        hold = False
    End Sub