快捷键取消 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

当设置了太多了快捷键后，可以设计一个按钮取消所有的快捷键吗？感谢感谢

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编辑过]

能帮忙看看这个吗？为什快捷键不能用键盘上面的一排数字呢，感谢感谢

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 14:23:08编辑过]

RegisterHotKey(txlx.Handle, 163, KeyModifiers.none, Keys.LControlKey) ' 单独使用ctrl

能帮忙看看这个吗？为什么这个不能单独使用呢，感谢感谢

主题：快捷键取消