vb键盘事件

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub KeySd(KeyCode As Integer, Optional Doindex As Integer = 1) '1Press 2Down 3Up
If (Doindex - 3) Then keybd_event KeyCode, 0, 0, 0
If (Doindex - 2) Then keybd_event KeyCode, 0, KEYEVENTF_KEYUP, 0
End Sub

调用keysd vbkeyr

或者
sendkeys "r"

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode=82 then msgbox "你按下了r键"
End Sub

单项按键
直接按“r”弹出窗口
新建一个窗口，加入以下代码：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode=82 then msgbox "你按下了r键"
End Sub

再补充点，你早晚要用！

组合按键
按“r”+“Shift”弹出窗口
新建一个窗口，加入以下代码：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("r") And Shift = vbCtrlMask Then <