20-02-19, 05:39 PM
مرحباً اخى الفاضل
اسف لعدم تحرير السورس المرفق واعادة ارفاقه
بسبب اختلاف الاصدار الذى اعمل عليه
لكن بامر الله سيكون الشرح مبسط وموضح كيفية اتمام المطلوب
انظر اخى الحبيب كل ما ستحتاج اليه التالى
تعال عند الحدث TextBox1_TextChanged
وستجد كلاً من الاسطر التالية
كود :
Dim i As Integer = ListBox1.FindString(TextBox1.Text)
ListBox1.SelectedIndex = iفقط كل ما عليك استبدال تلك الاسطر بهذا السطر
كود :
Me.دليل_الهاتفBindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%'"الان قم باختبار البرنامج وستجد انه يعمل معك مباشر بمجرد كتابة حرف وليس الاسم فقط
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية