[EMADSSS]

الله يعطيكم العافي جميعا
سويت برنامج دليل هاتف وعم ابحث عن الاسم بكتابة الاسم ضمن التكست بوكس وعم يتم الفلترة ضمن الليست بوكس بحيث عم يتحدد الاسم ضمن الليست بوكس 
لو سمحتم عاوز لما ابدأ بكتابة الاحرف الأولى للاسم المراد البحث عنه في التكستيبدأ الليست بوكس بعرض الاسماء الأقرب للصح فقط بحيث يكون الاقرب للصح اول اسم يضهر في الليست بوكس وما يتم عرض إلا  الاسماء القريبة لعملية البحث فقط 
يعني مو تحديد الاسم القريب للصح بلون مختلف  - انما يكون الاكثر اقتراب من الصح يكون الاسم الاول في الليست بوكس والاقل اقتراب الثاني وهكذا

[elgokr]

مرحباً اخى الفاضل

اسف لعدم تحرير السورس المرفق واعادة ارفاقه

بسبب اختلاف الاصدار الذى اعمل عليه

لكن بامر الله سيكون الشرح مبسط وموضح كيفية اتمام المطلوب

انظر اخى الحبيب كل ما ستحتاج اليه التالى

تعال عند الحدث TextBox1_TextChanged

وستجد كلاً من الاسطر التالية

كود :

       Dim i As Integer = ListBox1.FindString(TextBox1.Text)
       ListBox1.SelectedIndex = i

فقط كل ما عليك استبدال تلك الاسطر بهذا السطر

كود :

       Me.دليل_الهاتفBindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%'"

الان قم باختبار البرنامج وستجد انه يعمل معك مباشر بمجرد كتابة حرف وليس الاسم فقط

تحياتى لك

وتمنياتى لك التوفيق

[EMADSSS]

(19-02-19, 10:31 PM)EMADSSS كتب : الله يعطيكم العافي جميعا
سويت برنامج دليل هاتف وعم ابحث عن الاسم بكتابة الاسم ضمن التكست بوكس وعم يتم الفلترة ضمن الليست بوكس بحيث عم يتحدد الاسم ضمن الليست بوكس 
لو سمحتم عاوز لما ابدأ بكتابة الاحرف الأولى للاسم المراد البحث عنه في التكستيبدأ الليست بوكس بعرض الاسماء الأقرب للصح فقط بحيث يكون الاقرب للصح اول اسم يضهر في الليست بوكس وما يتم عرض إلا  الاسماء القريبة لعملية البحث فقط 
يعني مو تحديد الاسم القريب للصح بلون مختلف  - انما يكون الاكثر اقتراب من الصح يكون الاسم الاول في الليست بوكس والاقل اقتراب الثاني وهكذا

شكرا كثير تمام الله يجزيكم خيرا

---

الله يعطيكم العافي جميعا وشكرا الكم