13
Ноябрь
2008
Как можно программно открыть Combobox
Еще один вариант, как можно программно открыть Combobox.
Option Explicit
Private Declare Function SendMessageByNum Lib _
"user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Command1_Click()
Call OpenCombo(Combo1, True)
End Sub
Private Sub OpenCombo(Combo As ComboBox, ByVal Flag As Boolean)
Dim Mess As Long
Mess = SendMessageByNum(Combo.hwnd, CB_SHOWDROPDOWN, Flag, 0)
End Sub