08-12-13, 02:14 PM
08-12-13, 03:02 PM
ComboBox1.DroppedDown = True
08-12-13, 03:14 PM
السلام عليكم
أخى الكريم
فى حدث General ضع الكود التالى
[/code]
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_GotFocus()
Dim RC As Long
RC = SendMessage(Combo1.Hwnd, &H14F, True, 0)
End Sub
[code]
بالتوفيق إن شاء الله
أخى الكريم
فى حدث General ضع الكود التالى
[/code]
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
كود :
وفى حدث Gotfocus للكومبو ضع الكود التالىDim RC As Long
RC = SendMessage(Combo1.Hwnd, &H14F, True, 0)
End Sub
[code]
بالتوفيق إن شاء الله