VB 如何设置快捷键?

最简单的方法是按Ctrl+E打开菜单编辑器，然后设置个菜单项为退出什么的，设置其快捷键为Ctrl+D，勾选掉“可见”属性（如果是“不可见”属性请勾上）。然后运行就可以了。

还有的方法：（代码）

方法①：

Private

Sub

Form_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

Me.KeyPreview

=

True

If

KeyCode

=

vbKeyD

And

Shift

=

2

Then

End

End

Sub

方法②：

Private

Sub

Form_KeyUp(KeyCode

As

Integer,

Shift

As

Integer)

Me.KeyPreview

=

True

If

KeyCode

=

vbKeyD

And

Shift

=

2

Then

End

End

Sub

方法③：

Private

Sub

Form_KeyPress(KeyAscii

As

Integer)

If

KeyAscii

=

4

Then

End

End

Sub

方法①②③的灵敏度不一样，③里面的KeyAscii=4是Ctrl+D的Ascii值，是测试出来的。

至于Ascii值测试代码，只要将方法③的语句换为MsgBox

KeyAscii就行了

设置VB窗体中按扭快捷键的 *** 作可以采用下面两种方法来实现:

1、在按扭的Capion 属性设置标题的时候，前面增加 "&K"字符就可以，K代表的是你准备使用的Alt+键盘字符，如“&O.退出”，程序运行的时候按下 Alt+O 即执行该按扭的 *** 作了

2、你可以利用该按扭所在的Form 窗体优先权获得键盘 *** 作功能来激发你要完成的按扭 *** 作，此时首先要设置Form 的KeyPreview 属性值为 True,然后在 Form中KeyDown事件中判断你需要的组合键盘值来激发你的按扭事件.

Form_KeyDown事件中的各功能键值组合比较全面，如Shift,Alt 及Ctr等，一般都能满足快捷键的组合需求了.

Exp:

利用Ctrl+O组合键激发上面所说的按扭键,在Form_KeyDown事件中添加如下代码

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 79 Then

btnQuit_Click()

End If

End Sub

btnQuit_Click()是退出程序按扭事件

---