如何用VB.NET设置菜单项的热键

不清楚热键和快捷键是什么区别

平川网站建设公司成都创新互联公司,平川网站设计制作，有大型网站制作公司丰富经验。已为平川上千余家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的平川做网站的公司定做！

1.如果你是指Chrl+S这样的快捷键，可以设置ShortCutKeys属性，属性窗口就有可视化编辑器。

2.如果你是指"保存(S)"，其中s有下划线这样的用Alt+字母来访问的设置，应该在菜单项的Text属性中使用符号。符号后面的字母将被作为快速访问字符，显示的时候不会被显示出来，而字母会自动加上下划线。比如"保存(s)"。

3.和选中标记有关的属性有两个

CheckOnClick 在菜单项上单击时是否改变Checked属性

Checked 设置/获取 菜单项是否被选中

4.设置菜单项的Enabled属性为False

VB点虐 的快捷键

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+右箭头键：完成单词

vb点虐 怎么设置快捷键

新建一个Form1把Form1的KeyPreview改成True

拖入一个Button1到Form1上面

然后加入以下代码

Private

Sub

Form1_KeyDown(sender

As

Object,

e

As

KeyEventArgs)

Handles

Me.KeyDown

If

e.KeyData

=

(Keys.Alt

Or

Keys.G)

Then

Button1.PerformClick()

'或者用Button1_Click(Nothing,

New

EventArgs)

'快捷键Alt+G触发Button1_Click()事件。

End

If

End

Sub

Private

Sub

Button1_Click(sender

As

Object,

e

As

EventArgs)

Handles

Button1.Click

Button1.Size

=

New

Size(180,

23)

Button1.Text

=

"我被局部快捷键给召唤了~"

End

Sub

vb点虐 怎样实现控制热键？

用API函数，下面是F4激活程序的事例

Public Class Form1

Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean

Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'注册全局热键

RegisterHotKey(Handle, 0, 0, Keys.F4)

'第3个参数意义： 0=nothing 1 -alt 2-ctrl 3-ctrl+alt 4-shift 5-alt+shift 6-ctrl+shift 7-ctrl+shift+alt

End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

UnRegisterHotKey(Handle, 0)

End Sub

Protected Overrides Sub WndProc(ByRef m As Message)

If m.Msg = 786 Then

Me.Activate()

End If

MyBase.WndProc(m)

End Sub

End Class

文章名称：vb点虐 设置热键 vbnet tabpage
标题链接：http://cdweb.net/article/ddjdepj.html