+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال حول البحث في combobox (/showthread.php?tid=28345)
سؤال حول البحث في combobox - tighrmte - 24-01-19
من فضلكم وشكرا طريقة البحث في combobox بمجرد كتابة حرف اول تم ثاني ......
RE: سؤال حول البحث في combobox - عبدالله الصافي - 24-01-19
إجعل الـ Style للكومبو هي 0 (DropDown Combo)
في الـ General أضف
كود :
Dim blnBackSpace as Boolleanاستخدم تلك الاكواد
كود :
Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then blnBackSpace = True
End Subكود :
Private Sub combo1_Change()
Dim i As Long
Dim lngText As Long
If combo1.Text = vbNullString Then
blnBackSpace = False
Exit Sub
End If
'----------------------
For i = 0 To combo1.ListCount - 1
If InStr(1, combo1.List(i), combo1.Text, vbTextCompare) = 1 Then
If blnBackSpace = True Then
lngText = combo1.SelStart - 1
blnBackSpace = False
Else
lngText = combo1.SelStart
End If
combo1.Text = combo1.List(i)
'----------------Add--Your-Action-Here---------
'---------------------------------------------------
combo1.SelStart = lngText
combo1.SelLength = Len(combo1.Text) - lngText
Exit For
End If
If i = combo1.ListCount - 1 Then combo1 = ""
NextRE: سؤال حول البحث في combobox - tighrmte - 27-01-19
اخي اريد عند كتابة الحرف الاول ان يعطيني جميع الاسماء الموجودة بالحرف الاول تم الحرف التاني تظهر تاني كما هي هنانا
S
Sa
sal
....
RE: سؤال حول البحث في combobox - عبدالله الصافي - 27-01-19
أخي الكريم هناك ملحوظة مهمة
عند كتابة الحرف وفتح القائمة المنسدلة للاداة سوف تجد أن او عنصر يبدأ بما كتبته قد تم تحديده
او تتحرك بين العناصر التي كتبت حروف منها عن طريق الاسهم صعودا وهبوطا
ولتسهيل الامر قم بتغيير خاصية Sorted للاداة إلي True
--------------------------------------------------------------------
وممكن تجعل الاداة تحتوي علي العناصر التي تكتب حروف منها فقط إذا كان مصدر عناصر الاداة من قاعدة بيانات
من خلال البحث في القاعدة عن الاسماء (مثلا) التي تحوي ما كتبت من حروف ثم يعيد ملئ الاداة بناتج البحث
ويعمل تلك العملية في كل مرة تكتب فيها حرف جديد
--------------------------------------------------------------
وإذا كنت تريد شيء بعيد عن ذلك فالله المستعان
ولن أبخل بما تريد إذا تيسر لي ذلك