关于组合框的问题

Question

如何实现:当某组合框获得焦点时,按下空格键/回车键就可以打开组合框,然后按上下箭头移动,最后按回车键进行选定某一项目?

Answer 1

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case vbKeySpace
        SendKeys "{f4}"
End Select
End Sub

Answer 2

同上，注意加上KeyAscii = 0。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case vbKeySpace
            KeyAscii = 0
            SendKeys "{f4}"
    End Select
End Sub