منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage

اذهب الى الأسفل

الاكمال التلقائى فى combobox باستخدام  دوال APi SendMessage Empty الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage

مُساهمة من طرف السنى الثلاثاء نوفمبر 13, 2018 1:56 pm

يمكن إستخدام دوال 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

Very Happy
السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الاكمال التلقائى فى combobox باستخدام  دوال APi SendMessage Empty رد: الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage

مُساهمة من طرف أحمد مناع الجمعة نوفمبر 22, 2019 8:47 am

بالتوفيق ....نريد شرح من قاعدة البيانات

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الاكمال التلقائى فى combobox باستخدام  دوال APi SendMessage Empty رد: الاكمال التلقائى فى combobox باستخدام دوال APi SendMessage

مُساهمة من طرف RANA الأحد فبراير 23, 2020 8:34 pm

شكرا جزيلا اخي الكريم 
RANA
RANA
.....
.....

تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة : فلسطين
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى