كود يجعل ComboBox يفتح تلقائيا عند بدأ الكتابة
صفحة 1 من اصل 1
كود يجعل 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
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
Coptic_Vb- مدير المنتدى
- المساهمات : 70
تاريخ التسجيل : 29/10/2008
الموقع : https://copticvb.yoo7.com/ -
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى