17-10-12, 02:50 PM
كاتب الموضوع : sniperser
السلام عليكمكود يجعل ComboBox يفتح تلقائيا عند بدأ الكتابة
كود :
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