[Mohamed20]

اريد البحث فى listbox و اضافة ناتج البحث فى listbox اخر

مثال

كود :

           ListBox1.Items.Clear()
           For Each item In ListBox2.Items
               If item.Value.Contains(TextBox1.Text) Then
                   ListBox1.Items.Add(item)
               End If
               If TextBox1.Text = "" Then
                   ListBox1.Items.Clear()
               End If
           Next

المشكلة هى انى اريد البحث بهذه الطريقة اذا كانة items
Ahmed
ahmed
mohamed
Mohamed
 vb4arb VB4arab
 Vb4arb vb4arab
نلاحظ انه يوجد حروف كبيرة و صغيره مشكلة الكود انه يجب ان يكون اول حرف مثل اول حرف انا اريد اذا كان الحرف الاول او اى حرف اخر اذا كان كبير او صغير يتم اتمام عملية البحث اى ان
عند البحث Vb4arb = vb4arb اى لا يفرق اذا كان الحرف كبير او صغير ارجو ان اكون وضحت

[مساعدة]

السلام عليكم

تفضل الكود

كود :

ListBox1.Items.Clear()
If TextBox1.Text.Trim <> "" Then
    For Each item In ListBox2.Items
        Dim a As String = item.ToString.ToLower
        Dim b As String = TextBox1.Text.Trim.ToLower
        If a.Contains(b) Then
            ListBox1.Items.Add(item)
        End If
    Next
End If

---

الفكرة أن تحول كلا الطرفين لأحرف صغيرة باستحدام ToLower ومن ثم تقوم بالمقارنة

---

واستخدام Trim لحذف اي مسافة قبل او بعد النص حتى لا بأثر على نتيجة المقارنة