فرز الكومبو بوكس فى اكس بى و ويندوز 2000

ابو ماضى كتب:

عندما اقوم بعمل كومبو بوكس و جعل خاصية سورتد الى ترو و أقوم بالكتابة بلوحة المفاتيح على الكومبو يقوم الفيجوال بيسك أثناء التنفيذ بالذهاب الى البيان المطابق للكتابة فى ويندو 98 فقط ولكن عند تنفيذ نفس البرنامج فى الاكس بى او ويندوز 2000 لا تعمل هذا الخاصية

ارجو معرفة سبب عدم تشغيل هذه الخاصية أفادكم الله

←

اين الردود 0000000000000000000000000000000000000000000000

سيدي هذه الخاصية عملها الرئيسي هي ترتيب البيانات ابجديا ، وليست بالضرورة ان تكون لاي شي اخر .

اما انها اشتغلت معك في ويندوز 98 ولم تعمل في Xp هذا الامر يعود لنظام التشغيل نفسه .

ولكن لا يوجد شي اسمه مستحيل .

اليك الحل النهائي .

هذه الدالة ضعها في موديول

'----------------------- Top Lines In Module File
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C
'---------------------------

Public Sub AutoSearchInCombo(swCombo As ComboBox, swKeyAscii As Integer)
Dim lngFind As Long, intPos As Integer, intLength As Integer


With swCombo

If swKeyAscii = 8 Then
If .SelStart = 0 Then Exit Sub
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
.SelText = Chr(swKeyAscii)
End If
swKeyAscii = 0
lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
If lngFind = -1 Then Exit Sub
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
.SelText = .SelText & Right(.List(lngFind), intLength)
.SelStart = intPos
.SelLength = intLength
End With

End Sub

ثم استدعيها في كل كومبو بوكس في الحدث KeyPress

AutoSearchInCombo Combo1 , KeyAscii

سلاماتي