![]() |
|
[VB.NET] الفلترة ضمن الليست بوكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] الفلترة ضمن الليست بوكس (/showthread.php?tid=28689) |
الفلترة ضمن الليست بوكس - EMADSSS - 19-02-19 الله يعطيكم العافي جميعا سويت برنامج دليل هاتف وعم ابحث عن الاسم بكتابة الاسم ضمن التكست بوكس وعم يتم الفلترة ضمن الليست بوكس بحيث عم يتحدد الاسم ضمن الليست بوكس لو سمحتم عاوز لما ابدأ بكتابة الاحرف الأولى للاسم المراد البحث عنه في التكستيبدأ الليست بوكس بعرض الاسماء الأقرب للصح فقط بحيث يكون الاقرب للصح اول اسم يضهر في الليست بوكس وما يتم عرض إلا الاسماء القريبة لعملية البحث فقط يعني مو تحديد الاسم القريب للصح بلون مختلف - انما يكون الاكثر اقتراب من الصح يكون الاسم الاول في الليست بوكس والاقل اقتراب الثاني وهكذا RE: الفلترة ضمن الليست بوكس - elgokr - 20-02-19 مرحباً اخى الفاضل
اسف لعدم تحرير السورس المرفق واعادة ارفاقه
بسبب اختلاف الاصدار الذى اعمل عليه
لكن بامر الله سيكون الشرح مبسط وموضح كيفية اتمام المطلوب
انظر اخى الحبيب كل ما ستحتاج اليه التالى
تعال عند الحدث TextBox1_TextChanged
وستجد كلاً من الاسطر التالية كود : Dim i As Integer = ListBox1.FindString(TextBox1.Text)فقط كل ما عليك استبدال تلك الاسطر بهذا السطر كود : Me.دليل_الهاتفBindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%'"الان قم باختبار البرنامج وستجد انه يعمل معك مباشر بمجرد كتابة حرف وليس الاسم فقط
تحياتى لك
وتمنياتى لك التوفيق
RE: الفلترة ضمن الليست بوكس - EMADSSS - 21-02-19 (19-02-19, 10:31 PM)EMADSSS كتب : الله يعطيكم العافي جميعا شكرا كثير تمام الله يجزيكم خيرا الله يعطيكم العافي جميعا وشكرا الكم |