Question

VB如何设置快捷键等于Command1？

求个源码。按Ctrl+Enter就等于click Command 很简单呵 我新手 教下咯

Answer 1

把窗体的KeyPreview属性设为True，然后在窗体的KeyDown事件添加下面的代码。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Shift = vbCtrlMask Then Command1.Value = True
End Sub

Answer 2

Private Sub Command1_Click()
Print 123456
End SubPrivate Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then
Command1 = True
End If
End Sub

Answer 3

button的属性窗口里没有shortcut么?