将按钮操作定义成快捷键

可 以 设 置 Form的 KeyPreview属 性 为 True， 然 后 在 Form_KeyDown事 件 中 添 加 代 码 ：

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

     If KeyCode = Asc("A") And Shift = vbCtrlMask Then

     Command1_Click

     End If

    End Sub

如 果 用 户 按 下 Ctrl-A就 执 行 Command1_Click。