| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 快捷键取消 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114049) |
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/1/27 10:34:00 -- 快捷键取消 当设置了太多了快捷键后，可以设计一个按钮取消所有的快捷键吗？感谢 感谢 |
||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2018/1/27 10:34:00 -- 怎么设置的快捷键？ |
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/1/27 10:58:00 -- Dim m As object = args(0) If My.Computer.Keyboard.CapsLock Then \'返回按键枚举 output.show("[Caps Lock] ON") Else output.show("[Caps Lock] OFF") Select Case m.WParam Case 110 \'msgbox("按下的快捷键是:空格") Forms("听想练习窗口").Controls("Button1").PerformClick Case 111 \'msgbox("按下的快捷键是: b") Forms("听想练习窗口").Controls("Button01").PerformClick Case 112 \'msgbox("按下的快捷键是:n") Forms("听想练习窗口").Controls("Button10").PerformClick Case 113 \'Forms("听想练习窗口").Controls("Button3").PerformClick \'msgbox("按下的快捷键是:m") If Forms("听想练习窗口").Controls("Button3").Enabled Forms("听想练习窗口").Controls("Button3").PerformClick Else Forms("听想练习窗口").Controls("Button1").PerformClick End If End Select End If Dim obja As GlobalKeyDown = GlobalKeyDown.getInstance RegisterHotKey(obja.Handle, 140, KeyModifiers.none, 32) \' 快捷键大小写+空格 RegisterHotKey(obja.Handle, 141, KeyModifiers.none, Keys.b) \' 快捷键大小写 用的这个代码，感谢 感谢
[此贴子已经被作者于2018/1/27 10:58:12编辑过]
|
||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2018/1/27 11:18:00 -- 按钮代码 Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance UnregisterHotKey(obj.Handle, 110) UnregisterHotKey(obj.Handle, 111) UnregisterHotKey(obj.Handle, 112) UnregisterHotKey(obj.Handle, 113)
|
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/1/27 11:28:00 -- 懂了 感谢 感谢 |
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/4/8 11:53:00 -- 能帮忙看看这个吗？为什快捷键不能用 键盘上面的一排数字呢，感谢 感谢 Dim txlx As GlobalKeyDown = GlobalKeyDown.getInstance RegisterHotKey(txlx.Handle, 160, KeyModifiers.none, 32) \' 快捷键大小写+空格 RegisterHotKey(txlx.Handle, 161, KeyModifiers.none, Keys.1) \' 快捷键大小写+1 RegisterHotKey(txlx.Handle, 162, KeyModifiers.none, Keys.2) \' 快捷键大小写+2 RegisterHotKey(txlx.Handle, 163, KeyModifiers.none, Keys.3) \' 快捷键大小写+3 可以设置点击快捷键后还能使用键盘吗？感谢 感谢
[此贴子已经被作者于2018/4/8 12:00:36编辑过]
|
||||||||||||||||||||||
| -- 作者：有点甜 -- 发布时间：2018/4/8 12:02:00 --
http://www.foxtable.com/webhelp/scr/0621.htm
|
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/4/8 14:20:00 -- 可以了，感谢 感谢 [此贴子已经被作者于2018/4/8 14:23:08编辑过]
|
||||||||||||||||||||||
| -- 作者：yangwenghd -- 发布时间：2018/4/8 14:40:00 -- RegisterHotKey(txlx.Handle, 163, KeyModifiers.none, Keys.LControlKey) \' 单独使用ctrl 能帮忙看看这个吗？为什么这个不能单独使用呢，感谢 感谢
|
||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2018/4/8 16:30:00 -- 不能单独使用 |