منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

من فضلكم وشكرا طريقة البحث في 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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

tighrmte

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

tighrmte

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