如何识别键盘左右的shift,Ctrl或Alt键

最新推荐文章于 2019-01-10 15:13:00 发布

northwolves

最新推荐文章于 2019-01-10 15:13:00 发布

阅读量2.6k

点赞数

分类专栏：其他技巧图形界面文章标签： integer function api user xp

本文链接：https://blog.csdn.net/northwolves/article/details/60126

版权

图形界面同时被 2 个专栏收录

38 篇文章 0 订阅

订阅专栏

其他技巧

32 篇文章 0 订阅

订阅专栏

用API （GetAsyncKeyState）实现，在WIN 2K，XP 下有效：

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1
Private Const VK_LCTRL = &HA2
Private Const VK_RCTRL = &HA3
Private Const VK_LMENU = &HA4
Private Const VK_RMENU = &HA5

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift And Shift = vbShiftMask And (GetAsyncKeyState(VK_LSHIFT) And &H8000) Then MsgBox "you click the Left Shift"
If KeyCode = vbKeyShift And Shift = vbShiftMask And (GetAsyncKeyState(VK_RSHIFT) And &H8000) Then MsgBox "you click the RIGHT Shift"

If KeyCode = vbKeyMenu And Shift = vbAltMask And (GetAsyncKeyState(VK_LMENU) And &H8000) Then MsgBox "you click the Left ALT" ' only ALT was pressed
If KeyCode = vbKeyMenu And Shift = vbAltMask And (GetAsyncKeyState(VK_RMENU) And &H8000) Then MsgBox "you click the RIGHT ALT" ' only ALT was pressed

If KeyCode = vbKeyControl And Shift = vbCtrlMask And (GetAsyncKeyState(VK_LCTRL) And &H8000) Then MsgBox "you click the Left CTRL"
If KeyCode = vbKeyControl And Shift = vbCtrlMask And (GetAsyncKeyState(VK_RCTRL) And &H8000) Then MsgBox "you click the Right CTRL"

End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub