如何将按钮操作定义成快捷键.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 8 行

可 以 设 置 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。 
<END>