Question

vb 按钮快捷键怎么设置

比如我做了个程序。懒的用鼠标点VB上的按钮。想直接按下键盘上的某个按钮。就等于按下了VB上的那个按钮。。这个怎么编写代码。最好想设置哪个键就是哪个键。不是菜单快捷键。是按钮快捷键

Answer 1

设置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()是退出程序按扭事件

Answer 2

设置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()是退出程序按扭事件

Answer 3

在按钮的Caption值当中 某字母前加&
这个字母就是这个按钮的快捷键
按 Alt +这个字母 就可以了
只按一个字母是不可能的

Command1.Caption = "&OK"
Command1的快捷键就是 Alt + O

Answer 4

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 300 '设定检测间隔
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyQ) Then ' 判断你需要的快捷键是否按下，这里使用“Q”
Call Command1_click '按下按钮
Else
End If
End Sub

还有第二种方法
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Then ‘按下1键
Call Command1_Click
end if
End Sub
注意这是form的keydown事件，要求form必须具有焦点请参考，采纳，谢谢

Answer 5

'给你举个简单的例子
Private Sub Form_Load()
Command1.Caption = "我是Q的快捷键&Q" '你可以把&后面的字母改成你需要快捷键的字母
End Sub
Private Sub Command1_Click()
MsgBox "你按了Ait+Q"
End Sub
'请参考采纳！谢谢！