100分:求教combobox控件如何用代码实现列表下拉.

Question

如题.就是让combobox的列表保持弹出来的样子

Answer 1

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 LongPrivate Sub Form_Load()
    Combo1.AddItem "11111"
    Combo1.AddItem "22222"
    Combo1.AddItem "33333"
    Combo1.AddItem "44444"
    Combo1.AddItem "55555"
    Combo1.AddItem "66666"
    'Form_Load 即自动下拉 Combo1
    Dim nret As Long
    nret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

Answer 2

使用combobox1的dropdown事件来触发下拉事件