UC知道VB键盘事件【组合键】没用？
来源：百度知道 编辑：UC知道 时间：2024/06/25 06:45:53
组合按键
按“r”+“Shift”弹出窗口
新建一个窗口，加入以下代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("r") And Shift = vbCtrlMask Then
msgbox "你按下了r+Shift键"
End If
End Sub
我试了！为什么按下R和SHIFT没又提示？？
按“r”+“Shift”弹出窗口
新建一个窗口，加入以下代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("r") And Shift = vbCtrlMask Then
msgbox "你按下了r+Shift键"
End If
End Sub
我试了！为什么按下R和SHIFT没又提示？？
Shift = vbCtrlMask 的时候表示按下的是Ctrl键.~
KeyCode用的是Asc("R")而不是Asc("r")
'注意设置Form的KeyPreview属性为True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 82 And Shift = 1 Then
Print "Shift+R"
End If
End Sub