ＶＢ中Combox 如何不用鼠标点而用键盘操作(如回车)就自动下拉

Question

ＶＢ中Combox 如何不用鼠标点而用键盘操作(如回车)就自动下拉

Answer 1

Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_RESETCONTENT = &H14B
Public Const CB_SHOWDROPDOWN = &H14F
Public Const CB_LIMITTEXT = &H141
Public Const LB_RESETCONTENT = &H184Private Sub Combo1_GotFocus()
Dim intret As Long
intret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub