如何打开COMBOBOX里的下拉框，在什么事件里？

Question

我用 sendkeys "%{down}" 没有用，不知道是不是因为事件不对。请各位帮忙！

Answer 1

你想实现自动下拉只能用api
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
'在combo1获得焦点的时候自动下拉
Private Sub Combo1_GotFocus()
'自动下拉代码
Dim intret As Long
intret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

Answer 2

我是想实现在COMBOBOX里输入文本时，下拉框自动出现。
sendkeys "{F4}" 好象也没什么反映。
第一楼大哥的方法正在试。