كود يجعل ComboBox يفتح تلقائيا عند بدأ الكتابة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود يجعل ComboBox يفتح تلقائيا عند بدأ الكتابة

مُساهمة من طرف Coptic_Vb في الثلاثاء نوفمبر 11, 2008 12:07 am

كود:

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 Combo1_KeyPress(KeyAscii As Integer)
Dim RC As Long
RC = SendMessage(Combo1.hwnd, &H14F, True, 0)
End Sub
avatar
Coptic_Vb
مدير المنتدى
مدير المنتدى

المساهمات : 70
تاريخ التسجيل : 29/10/2008
الموقع : http://copticvb.ace.st/

معاينة صفحة البيانات الشخصي للعضو http://copticvb.ace.st/

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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