[tighrmte]

من فضلكم وشكرا طريقة البحث في combobox بمجرد كتابة حرف اول تم ثاني ......

[عبدالله الصافي]

إجعل الـ 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 = ""
Next

[tighrmte]

اخي اريد عند كتابة الحرف الاول ان يعطيني جميع الاسماء الموجودة بالحرف الاول تم الحرف التاني تظهر تاني كما هي هنانا
S
Sa
sal
....

[عبدالله الصافي]

أخي الكريم هناك ملحوظة مهمة

عند كتابة الحرف وفتح القائمة المنسدلة للاداة سوف تجد أن او عنصر يبدأ بما كتبته قد تم تحديده
او تتحرك بين العناصر التي كتبت حروف منها عن طريق الاسهم صعودا وهبوطا
ولتسهيل الامر قم بتغيير خاصية Sorted للاداة إلي True
--------------------------------------------------------------------
وممكن تجعل الاداة تحتوي علي العناصر التي تكتب حروف منها فقط إذا كان مصدر عناصر الاداة من قاعدة بيانات
من خلال البحث في القاعدة عن الاسماء (مثلا) التي تحوي ما كتبت من حروف ثم يعيد ملئ الاداة بناتج البحث
ويعمل تلك العملية في كل مرة تكتب فيها حرف جديد
--------------------------------------------------------------
وإذا كنت تريد شيء بعيد عن ذلك فالله المستعان
ولن أبخل بما تريد إذا تيسر لي ذلك