如何利用VB实现按下鼠标中键等于同时按下键盘上CTRL和R键？

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

msgbox "你按下了r+Shift键"

End If

End Sub

VB keypress事件中键盘上每个键的KeyAscii值分别是什么?
悬赏分：0 - 解决时间：2008-7-10 16:01
提问者： paul_xy - 试用期 一级 最佳答案
键码
常数 值 描述
vbKeyLButton 1 鼠标左键
vbKeyRButton 2 鼠标右键
vbKeyCancel 3 CANCEL 键
vbKeyMButton 4 鼠标中键

'注意设置Form的KeyPreview属性为True

你试试看吧

这个可能需要涉及到Hook了。。。否则对VB程序窗体以外的鼠标中键点击是无法响应的。