如有控件command1
 我想實現當按下enter+ctrl時,相當於用鼠標點下command1
 請問如何實現?
 謝謝啦!

按“alt+字母”可以么？

将command1的caption属性设置为&z
则在执行时，按alt+z,就相当于单击command1

你学要的是这个效果么？

不是的,
 就像QQ上一樣,按enter+ctrl時發送信息,
 而caption是發送兩個字不變的!

将Form的KeyPrieview属性设为True（窗体最先发生键盘事件） Option Explicit

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Shift = 2 Then MsgBox "按下了Ctrl+Enter", vbInformation, "提示" End If End Sub

謝謝啦!版主

再問一下哦:
如何在這裡調用COMMAD1_CLICK()呀:


If KeyCode = vbKeyReturn And Shift = 2 Then
        MsgBox "按下了Ctrl+Enter", vbInformation, "提示"
    End If

把COMMAND1_CLICK()的事件代码做成函数，直接调用函数不就行了。

If KeyCode = vbKeyReturn And Shift = 2 Then
        MsgBox "按下了Ctrl+Enter", vbInformation, "提示"
        Command1_Click
End If

謝謝,我昨天開始這麼試過不知那裡出錯以為是這麼做不行,
   呵呵,今天又可以了!