简单示例:
窗体上画一个按钮。
Private Sub Command1_Click()
MsgBox "Ctrl-Enter"
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyReturn Then
Command1_Click
End If
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
其余类似。
窗体上画一个按钮。
Private Sub Command1_Click()
MsgBox "Ctrl-Enter"
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyReturn Then
Command1_Click
End If
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
其余类似。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货