以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口快捷键 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97506) |
||||
-- 作者:yangwenghd -- 发布时间:2017/3/13 17:41:00 -- 窗口快捷键 能帮忙看看这个快捷键吗,后面的代码是写在那里的啊 感谢 感谢
自定义函数
处理快捷键
Dim m As object = args(0) Select Case m.WParam Case 100 msgbox("按下的快捷键是: F10") Case 101 msgbox("按下的快捷键是: Ctrl+Y") Case 102 msgbox("按下的快捷键是: Ctrl+Alt+Y") End Select
全局代码
API
<DllImport("user32.dll", SetLastError := True)> _ Public Function RegisterHotKey(hWnd As IntPtr, id As Integer, fsModifiers As KeyModifiers, vk As Keys) As Boolean |
||||
-- 作者:有点色 -- 发布时间:2017/3/13 19:04:00 -- 参考
http://www.foxtable.com/webhelp/scr/1842.htm
|
||||
-- 作者:yangwenghd -- 发布时间:2017/3/14 20:46:00 -- 谢谢 谢谢 API 是在那里啊 感谢 感谢 |
||||
-- 作者:有点蓝 -- 发布时间:2017/3/14 21:05:00 -- 全局代码。 1楼代码不完整,没法用
|
||||
-- 作者:yangwenghd -- 发布时间:2017/3/14 21:11:00 -- 就是不知道写在那里 ,后面有完整的代码。 我只是想在选中这个窗口后,然后点击 ctrl + v 是点击Button1的左键, ctrl + b 是Button1的右键, ctrl + n 是Button2的左键,这个可以吗 感谢 感谢
|
||||
-- 作者:有点蓝 -- 发布时间:2017/3/14 21:17:00 -- 不说是全局代码吗,看2楼帮助啊 |
||||
-- 作者:yangwenghd -- 发布时间:2017/3/14 21:43:00 -- 这个是写在那里啊 感谢 感谢 ![]() ![]() |
||||
-- 作者:有点蓝 -- 发布时间:2017/3/14 21:45:00 -- 红色字咯,自定义函数,函数名称是蓝色字“处理快捷键” |
||||
-- 作者:yangwenghd -- 发布时间:2017/3/14 21:56:00 -- 自定义需要写在那里吗? |
||||
-- 作者:有点蓝 -- 发布时间:2017/3/14 22:06:00 -- 内部函数 ![]() |