最简单的办法就是&OK 就是组合键ALT+O 不过这样有个缺点就是按钮的caption上必须带着快捷键的字母。
不如换个思路,想按某个组合键的时候,直接让窗体接受你的按键不是也可以吗
吧窗体的keypreview设置成true 画一个命令按钮
然后粘贴下面代码
Private Sub Command1_Click()
MsgBox "快捷键生效!", vbExclamation
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbAltMask And KeyCode = 70 Then'同时按下ALT键和F键的时候
Command1_Click '执行command1的单击过程,这里可以替换成你任意的控件事件
End If
End Sub
解释一下,vbAltMask就是按下ALT键,同样如果是vbCtrlMask就是按下了CTRL键,当然,你换成vbShiftMask也可以~。 KEYCODE=70是F键的KEYCODE码。想知道别的键的KEYCODE码就在Form_KeyDown事件里面输入PRINT KEYCODE,执行后你敲击键盘的是窗体就会显示出你敲的键的KEYCODE码!
温馨提示:答案为网友推荐,仅供参考