关于组合框的问题
如何实现:当某组合框获得焦点时,按下空格键/回车键就可以打开组合框,然后按上下箭头移动,最后按回车键进行选定某一项目?
[解决办法]
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeySpace
SendKeys "{f4}"
End Select
End Sub
[解决办法]
同上,注意加上KeyAscii = 0。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeySpace
KeyAscii = 0
SendKeys "{f4}"
End Select
End Sub