combo控件能不能一回车，下拉列表自动打开

Question

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{f4}"
    End If
End Sub

Answer 1

当然可以了。
你可以在键盘事件中搞定，以下是调用COMBO组合框下拉列表框的语句和讲解
首先在声明区声明以下内容：
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 CB_SHOWDROPDOWN = &H14F以下语句是控制组合框下拉列表框是否显示的语句：
SendMessage Combo1.hWnd, CB_SHOWDROPDOWN, True, ByVal 0&尤其注意里面的True，此处可以更换成False，如果是True的话，就证明下拉列表框是显示的，即会出现一回车，下拉列表框就会自动弹出；如果是False的话，就证明下拉列表框是不显示的，即再回车下拉列表框就没有了。
语句仅供参考，你稍作修改就可以了。^v^

Answer 2

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace Then
        SendKeys "%{DOWN}"
    End If
 End Sub

Answer 3

在Form_KeyPress中使用sendmessage（api函数）能办到。

Answer 4

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Combo1.dropdown
    End If
End Sub

Answer 5

jingxiaoping(恋爱温度) 不要郁闷呀，给你分了，哈哈