اهلاً بك من جديد
اذا المشكلة لديك انك تريد عند تفريغ الكتابة فى الكمبو
يتم اخفاء جميع نتائج الاستعلام
اولاً لديك حل من الاتى
ان تستبدل الكمبو بـ 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 هنا
تحياتى لك
وتمنياتى لك التوفيق
اخي elgokre
اخي mero5000
بارك الله فيكما ...أسأل الله عزوجل ان يرزقكم رضاه و رضا الوالدين
صراحة اخيelgokre مازلت لم اتعلم كيفية جعل التكست بوكس مثل الكومبو بكس في الاكمال التلقائي
فهل هي نفس الطريقة ؟؟
بكل بساطة اخى
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 فارغ لا يظهر شئ ولا هتشغل بالك باى شئ وقتها
الامور كلها واحد ولك حرية استخدام الانسب لك
ايضاً هذا رابط يمكنك الاطلاع عليه سيوضح الشكل النهائي
تحياتى لك
وتمنياتى لك التوفيق
راجع استعلام ملئ الكمبوبوكس
ما به استعلام ملأ الكومبوبكس اخي mero5000
اخي elgokre لقد اثقلت عليك بالاسئلة فارجوا ان تتقبل ذلك بصدر رحب
عند تطبيق الكود الاخير فان التكست بوكس اثناء الكتابة عليه لا يسدل نافذة الاكمال التلقائي و عند الغاء الاكمال التلقائي اي حسب الكود التالي
كود :
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
فانه يعمل لكن لا تسطيع الاختيار عن طريق ازرار الكايبورد
يا اساتذة الخير يا اخوتي المشكل مازال قائما في التكست بوكس
لما اقوم بالعمل بهذا الكود فانه لا يعمل كما ينبغي و لا يسدل النافذة و يقوم اختيار item مباشرة
كود :
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
اما عندما اعمل بهاد الكود :
كود :
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
لا استطيع اختيار item المطلوب عن طريق ازرار الكايبورد فانه عند الضغط على زر down فانه مباشرة يقوم باختيار اول item في القائمة
اذا اخى larbihamri
بدلاً من ان تعقد الامور عليك يمكنك البقاء على استخدام ComboBox
بالنهاية ما اقترحه كا فكرة والخيار الانسب ما يمكنك فعله بسهولة دون تعقيد
فيمكنك فيما بعد تطوير وتغيير الشكل كلما تعلمت شئ
فالبرمجة افكار يمكنك كل يوم ان تنشاء فكرة داخل اى برنامج تقوم به
تحياتى لك
وتمنياتى لك التوفيق
شكرا لكل الاخوة حفظكم الله و كامل اوطان المسلمين