VB 如何设置快捷键

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

还有的方法：（代码）

方法①：

Private

Sub

Form_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

MeKeyPreview

=

True

If

KeyCode

=

vbKeyD

And

Shift

=

2

Then

End

End

Sub

方法②：

Private

Sub

Form_KeyUp(KeyCode

As

Integer,

Shift

As

Integer)

MeKeyPreview

=

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就行了

打开文件资源管理器的快捷键是Windows+E。

在电脑键盘上有两个画有Windows徽标的按键，分别位于键盘底部左右两侧的Ctrl键和Alt键之间。这两键也因此被称为Windows徽标键。按下Windows徽标键+E键，可以快速打开“Windows资源管理器”窗口，并将“ThisPC”定位为当前文件夹。

资源管理还会用到以下几组快捷键：

F4在Windows资源管理器中显示地址栏列表。

Alt+向上键在Windows资源管理器中查看上一级文件夹。

Alt+P显示/隐藏预览面板。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

如何使用vb制作一个自定义组合键快捷键的程序。

作用：在写字板中使F2键具有复制的功能(按下F2＝按下Ctrl+c)F3具有粘贴的功能。

可以是对指定的进程有效也可以是全局的。

高手提供下代码，跪等～～～

解析:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Dim a

Private Sub Form_Load()

Timer1Interval = 1

Timer1Enabled = False

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

a = Asc(Text1Text)

Timer1Enabled = True

End If

End Sub

Private Sub Timer1_Timer()

If GetAsyncKeyState(a) Then MsgBox "热键调用成功！！", vbOKOnly

End Sub

这是设置热键的以个例子，你可以改一下呀

使用菜单编辑器，两种 方法使用快捷键

1在名称后加_快捷键（如:文件_(F)  ）,运行时按下ALT+F，就可以打开该菜单，该方法适用一层层打开菜单

2在编辑菜单项时直接指定，该方法适用直接打开想要的功能

在标签的caption属性中使用“＆”号设定快捷键(比如把caption属性设置为：＆F4)

举例想设置个叫退出的按钮，那COMMAND里的caption属性里填退出(&F4)

那么按ALT+F4就会运行这个按钮了

光按F4的快捷的话，只会用代码了

以上就是关于VB 如何设置快捷键全部的内容，包括:VB 如何设置快捷键、vb打开工程资源管理器的快捷键、vb 自定义组合键快捷键等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！