直接设置貌似不行 可以在窗体的 KeyDown事件里面写Public Class Form1
创新互联公司专注于久治企业网站建设,自适应网站建设,商城网站制作。久治网站建设公司,为久治等地区提供建站服务。全流程按需定制设计，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("快捷键设置成功")
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Shift And e.KeyCode = Keys.C Then
Button1_Click(sender, e)
End If
End Sub
End Class
1． F12：转到定义；Shift+F12：转到引用
2． F5：启动；Ctrl+F5：开始执行（不调试）；Shift+F5：停止调试
3． F7：查看代码；Shift+F7：查看视图设计器
4． Ctrl+Alt+L：解决方案资源管理器
5． Ctrl+Alt+J：对象浏览器
6． F4：显示属性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C类视图
9． Alt+Enter：查看属性
10．F10：逐过程调试
11．F11：逐语句调试
12．Ctrl+B：新断点
13．Ctrl+Shift+F9：清除所有断点
14．Ctrl+Shift+B生成解决方案
15．Shift+Alt+Enter：全屏
16．大纲显示：Ctrl+M, Ctrl+M：切换大纲显示展开；Ctrl+M, Ctrl+L：切换所有大纲显示；Ctrl+M,Crtl+P停止大纲显示；Ctrl+M, Ctrl+O：折叠到定义
17．智能感知：Ctrl＋J：列出成员；Ctrl+Shift+空格：参数信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭头键：完成单词
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
'让窗体响应键盘事件
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And chr(keycode)="C" then
msgbox "你按下了ctrl + C"
end if
End Sub
'当ctrl键被按下 和 “C”键被按下 弹出提示信息 "你按下了ctrl + C"
'keydown是键盘按下事件 里面的shift的值为：
'Shift=1 按了 Shift
'Shift=2 按了 Ctrl
'Shift=3 按了 Shift+Ctrl
'Shift=4 按了 Alt
'Shift=5 按了 Shift+Alt
'Shift=6 按了 Ctrl+Alt
'Shift=7 按了 Alt+Shift+Ctrl
'就是当Alt+Shift+Ctrl都被按下的时候 shift返回值为7
'当shift=0 时 表示什么也没有被按下
最简单的就是把属性改一下,效果跟无框的差不多。
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Me.ControlBox = False
Me.MaximizeBox = False
Me.Text = ""
至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。
