[elgokr]

اهلاً بك من جديد

اذا المشكلة لديك انك تريد عند تفريغ الكتابة فى الكمبو

يتم اخفاء جميع نتائج الاستعلام

اولاً لديك حل من الاتى

ان تستبدل الكمبو بـ TextBox وتقوم بتطبيق طريقة الاخ mero5000 

وبكده تكون حليت المشكلة كلياً وظهر العرض بشكل اشيك وبالطريقة التى تريدها

أو انك تقوم بتطبيق الكود بهذا الشكل

كود :

       If ComboBox1.Text = Nothing Then
           ComboBox1.Items.Clear()
       Else
           Nom_pBindingSource.Filter = "nom_p LIKE '%" & ComboBox1.Text & "%'"
           For fil = 0 To Nom_pBindingSource.Count - 1
               ComboBox1.Items.Add(Nom_pBindingSource(fil)("nom_p"))
           Next
       End If

وبكده اذا كان الكمبو فارغ بدون اى حرف او كتابة سيقوم بتفريغ كل نتائج الاستعلام

لكن افضل ان تستخد الطريقة الاولى وهو استخدام TextBox ستكون اشيك وستقوم بنفس الغرض

واذا كنت ستستخدم الطريقة الكمبو فانت هنا لا تريد تطبيق طريقة الاخ mero5000 هنا

تحياتى لك

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

[larbihamri]

اخي elgokre 
اخي mero5000 
بارك الله فيكما ...أسأل الله عزوجل ان يرزقكم رضاه و رضا الوالدين

---

صراحة اخيelgokre  مازلت لم اتعلم كيفية جعل التكست بوكس مثل الكومبو بكس في الاكمال التلقائي
فهل هي نفس الطريقة ؟؟

[elgokr]

بكل بساطة اخى larbihamri 

انشاء TextBox 
وتعال فى حدث TextBox1_TextChanged استخدم الكود بهذا الشكل

كود :

       Dim List_ As New AutoCompleteStringCollection
       Nom_pBindingSource.Filter = "nom_p LIKE '%" & TextBox1.Text & "%'"
       For fil = 0 To Nom_pBindingSource.Count - 1
           List_.Add(Nom_pBindingSource(fil)("nom_p").ToString())
       Next
       With TextBox1
           .AutoCompleteCustomSource = List_
           .AutoCompleteMode = AutoCompleteMode.SuggestAppend
           .AutoCompleteSource = AutoCompleteSource.CustomSource
       End With

دون ان تقوم اى تعديلات فى الخصائص

بحيث الكود سيقوم بذلك نيابتاً عنك 

اذهب واكتب فى TextBox ما تريد البحث عنه

وستجد ان TextBox تتعامل معك كما لو انك تستكخدم طريقتك الاخري

وبكده وبكده طول ما الـ TextBox فارغ لا يظهر شئ ولا هتشغل بالك باى شئ وقتها

الامور كلها واحد ولك حرية استخدام الانسب لك

---

---

ايضاً هذا رابط يمكنك الاطلاع عليه سيوضح الشكل النهائي

https://www.youtube.com/watch?v=0X8lcO3qrOY

تحياتى لك

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

[mero5000]

راجع استعلام ملئ الكمبوبوكس

[larbihamri]

ما به استعلام ملأ الكومبوبكس اخي mero5000

---

اخي elgokre لقد اثقلت عليك بالاسئلة فارجوا ان تتقبل ذلك بصدر رحب
عند تطبيق الكود الاخير فان التكست بوكس اثناء الكتابة عليه لا يسدل نافذة الاكمال التلقائي و عند الغاء الاكمال التلقائي اي حسب الكود التالي 

كود :

TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest

فانه يعمل لكن لا تسطيع الاختيار عن طريق ازرار الكايبورد

[mero5000]

عفوا لم انتبه ان الموضوع له صفحة اخرى
كنت برد عليك على رد سابق
راجع هذا
https://www.codeproject.com/Articles/243...-Textbox-3

[larbihamri]

يا اساتذة الخير يا اخوتي المشكل مازال قائما في التكست بوكس
لما اقوم بالعمل بهذا الكود فانه لا يعمل كما ينبغي و لا يسدل النافذة و يقوم اختيار item مباشرة 

كود :

       TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

اما عندما اعمل بهاد الكود :

كود :

       TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest

 لا استطيع اختيار item المطلوب عن طريق ازرار الكايبورد فانه عند الضغط على زر down  فانه مباشرة يقوم باختيار اول item في القائمة

[elgokr]

اذا اخى larbihamri

بدلاً من ان تعقد الامور عليك يمكنك البقاء على استخدام ComboBox

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

فيمكنك فيما بعد تطوير وتغيير الشكل كلما تعلمت شئ

فالبرمجة افكار يمكنك كل يوم ان تنشاء فكرة داخل اى برنامج تقوم به

تحياتى لك

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

[larbihamri]

شكرا لكل الاخوة حفظكم الله و كامل اوطان المسلمين

[mero5000]

جرب المرفق التالى
http://vb4arb.com/vb/showthread.php?tid=3084