vb中keydown事件里组合键该怎么写

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:06:48
如：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
......
Case vbKeyF2
......
Case 这里我想用ctrl+F3，该怎么写啊

End Select

End Sub

另外ctrl换成用alt，shift呢
ctrl+1
shift+F1
alt+1
等
好像没有vbKeyAlt

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
....
Case vbKeyF2
....
Case vbKeyF3
'判断Alt + F3
If Shift = 4 Then MsgBox "Alt + F3"
'判断Ctrl + F3
If Shift = 2 Then MsgBox "Ctrl + F3"
'判断Shift + F3
If Shift = 1 Then MsgBox "Shift + F3"
End Select
End Sub

'添加窗体Form1,然后添加如下代码:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Static intCode As Integer
    Select Case KeyCode
    Case vbKeyF1
    Case vbKeyF2
    Case (vbKeyF3 And intCode = vbKeyControl)