VB里編的一個程序設(shè)置一個快捷鍵
Private Sub Command1_Click()
MsgBox "haha"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
上例，按回車即可調(diào)用按鈕1。你也可以設(shè)置keyascii為別的值來實現(xiàn)調(diào)用不同的函數(shù)。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以讀出來了.
** 特別注意的是：要設(shè)置該畫面的屬性 Form.KeyPreview = True