الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage
صفحة 1 من اصل 1 • شاطر
الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage
يمكن إستخدام دوال APi SendMessage للإكمال التلقائي وعرض تطابقات عناصر combobox أثناء كتابتها. المثال يوضح ذلك
- الكود:
'الاعلان عن SendMessage
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 Sub Form_load()
Dim I As Long
' مليء عناصر الكمبو بوكس بايام الاسبوع
For I = 1 To 7
Combo1.AddItem WeekdayName(I)
Next
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim LenText As Long, ret As Long
'إذا كانت الأحرف التي تم الضغط عليها تتراوح بين 0 و Z
If KeyCode >= vbKey0 And KeyCode <= vbKeyZ Then
ret = SendMessage(Combo1.hwnd, &H14C&, -1, ByVal Combo1.Text)
If ret >= 0 Then
LenText = Len(Combo1.Text)
Combo1.ListIndex = ret
Combo1.Text = Combo1.List(ret)
Combo1.SelStart = LenText
Combo1.SelLength = Len(Combo1.Text) - LenText
End If
End If
End Sub
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
رد: الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage
بالتوفيق ....نريد شرح من قاعدة البيانات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage
شكرا جزيلا اخي الكريم
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد