除了以鼠标或键盘拉下 ComboBox 的列示栏之外, 如何在程序中拉下 ComboBox 的列示栏? 方法是对 ComboBox 送出 CB_SHOWDROPDOWN 信息, 细节如下:
1. API 的定义:
Const CB_SHOWDROPDOWN = &H14F
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
注:如果以上的定义放在「一般模组」底下, 应在 Const
之前加上 Public 保留字, 并且将 Private 保留字去掉。
2. 调用例:
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
如果收起列示栏,则是:
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, False, ByVal 0&