Foxtable(狐表) → 用户栏目 → 专家坐堂 → 快捷键取消


  共有2327人关注过本帖树形打印复制链接

主题：快捷键取消
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		快捷键取消  发帖心情 Post By：2018/1/27 10:34:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110645 积分：563133 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/27 10:34:00 [只看该作者]

怎么设置的快捷键？

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110645 积分：563133 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/1/27 11:28:00 [只看该作者]

懂了 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/8 12:02:00 [只看该作者]

NumLock Num Lock 键。 
NumPad0 数字键盘上的 0 键。 
NumPad1 数字键盘上的 1 键。 
NumPad2 数字键盘上的 2 键。 
NumPad3 数字键盘上的 3 键。 
NumPad4 数字键盘上的 4 键。 
NumPad5 数字键盘上的 5 键。 
NumPad6 数字键盘上的 6 键。 
NumPad7 数字键盘上的 7 键。 
NumPad8 数字键盘上的 8 键。 
NumPad9 数字键盘上的 9 键。 

 

http://www.foxtable.com/webhelp/scr/0621.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/4/8 14:20:00 [只看该作者]

可以了，感谢 感谢 
[此贴子已经被作者于2018/4/8 14:23:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/4/8 14:40:00 [只看该作者]

RegisterHotKey(txlx.Handle, 163, KeyModifiers.none, Keys.LControlKey) ' 单独使用ctrl
能帮忙看看这个吗？为什么这个不能单独使用呢，感谢 感谢  
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110645 积分：563133 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/8 16:30:00 [只看该作者]

不能单独使用

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询