如何识别键盘左右的shift,Ctrl或Alt键
来源:互联网 发布:下载网络歌曲大全 编辑:程序博客网 时间:2024/06/05 00:15
用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
- 如何识别键盘左右的shift,Ctrl或Alt键
- 如何识别键盘左右的shift,Ctrl或Alt键
- MFC中如何拦截Alt+?、Ctrl+?、Ctrl+Alt+?、Ctrl+Shift+?、Ctrl+Shift+Alt+?、Shift+?系列的组合键,以及拦截Alt+F4,回车和Esc键
- 如何屏蔽键盘的Ctrl+Alt+Del键
- 捕获Ctrl、Ctrl+Alt和Ctrl+Alt+Shift组合键
- CListCtrl在处理NM_CLICK的时候,如何判断Ctrl SHIFT ALT键是否按下
- CTRL、SHIFT、ALT及WIN键的功能
- shift,ctrl,alt按键的获取
- 组合键问题(Ctrl Shift Alt)
- 【❤《键盘上Alt,Ctrl,Shift,Delete,Home,End,Backspace,Tab,~,+,Insert的特殊用途……》❤】
- intellij ctrl+alt+shift+u
- 一段源码,展示C# winform 如何识别 Ctrl+Shift+X组合键;如何选取离光标最近的一个单词。
- 按CTRL,SHIFT,ALT等键扩展easyui的datagrid多选实现
- 按CTRL,SHIFT,ALT等键扩展easyui的datagrid多选实现
- 判断哪个修改键(Shift、Ctrl 和 Alt)处于按下状态的值。
- JS按键的代码、js回车/ctrl/ALT/SHIFT
- qt Event Filter 控制Ctrl Shift Alt键
- 判断shift,ctrl,alt键是否按下
- 漫谈UML OOAD and RUP (下)
- UML OOAD and RUP (上)
- 系统分析及软件建模
- 一点随笔,晕,都是在论坛上问的问题
- 用UML进行有效业务建模(编译)
- 如何识别键盘左右的shift,Ctrl或Alt键
- 如何用正确的方法来写出质量好的软件的75条体会(zz)
- J2ME学习笔记(一) huanghui22 [原作]
- J2ME学习笔记(二) huanghui22 [原作]
- J2ME学习笔记(三)-----学习MIDlets huanghui22 [原作]
- J2ME学习笔记(四)-----用特定的MIDP API开发MIDlets huanghui22 [原作]
- J2ME学习笔记(五)-----MIDlets中GUI(图形)编程 huanghui22 [原作]
- J2ME学习笔记(六)-----连接MIDlet到文本文件和检索数据 huanghui22 [原作]
- 远程连接ORACLE