VB里編的一個(gè)程序設(shè)置一個(gè)快捷鍵
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
上例，按回車(chē)即可調(diào)用按鈕1。你也可以設(shè)置keyascii為別的值來(lái)實(shí)現(xiàn)調(diào)用不同的函數(shù)。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以讀出來(lái)了.
** 特別注意的是：要設(shè)置該畫(huà)面的屬性 Form.KeyPreview = True