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

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

共有5320人关注过本帖树形打印复制链接主题：窗口快捷键

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/13 19:04:00 [显示全部帖子]

参考

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

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/15 15:44:00 [显示全部帖子]

以下是引用yangwenghd在2017/3/15 15:10:00的发言：
我试了，就是没懂例子是什么个意思，快捷键是什么，也不是设定的什么功能，感谢感谢

看懂人家的例子，执行按钮里面的代码就是注册快捷键，然后你在处理快捷键的地方写你要写的代码。

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/15 17:51:00 [显示全部帖子]

红色地方写代码

Dim m As object = args(0)

Select Case m.WParam

Case 100

msgbox("按下的快捷键是: F10")

Case 101

msgbox("按下的快捷键是: Ctrl+Y")

Forms("窗口1").Controls("Button1").PerformClick

Case 102

msgbox("按下的快捷键是: Ctrl+Alt+Y")

End Select

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/17 2:48:00 [显示全部帖子]

比如

RegisterHotKey(obj.Handle, 101, KeyModifiers.Control, Keys.Y) ' 快捷键ctrl+y

改成

RegisterHotKey(obj.Handle, 101, KeyModifiers.Control, 32) ' 快捷键ctrl+空格

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/20 12:04:00 [显示全部帖子]

以下是引用yangwenghd在2017/3/19 21:08:00的发言：
感谢感谢可以了可以把shift 改为 caps lock（大小写键）大写状态吗，如果是小写就没有效果，相当于就是打开大写，就不用同时按按钮了，相当于切换到大写就一直按着shift，只用按另外一个按钮就可以了，感谢感谢

那就直接把shift去掉，直接绑定ctrl+y快捷键。触发的时候，判断大小写是否按下，如果按下，就执行代码。

If My.Computer.Keyboard.CapsLock Then '返回按键枚举
output.show("[Caps Lock] ON")
Else
output.show("[Caps Lock] OFF")
End If