Anonymous
Anonymous asked in 電腦與網際網路程式設計 · 2 decades ago

command 使用keypress

要讓command1的快捷鍵為A

該編輯什麼在

Private Sub Command1_KeyPress(KeyAscii As Integer)

End Sub

Update:

還是不能了解您的意思

能否提供符合我需求的程式碼

Update 2:

優大大 你的意思我了解 也知道有此辦法設快捷為Alt+a

但如果我只需要快捷為A按鍵呢?

2 Answers

Rating
  • Anonymous
    2 decades ago
    Favorite Answer

    因控制項很多,假設你又有一個控制像是輸入文字用的,那你要如何判斷使用者按下A是代表快捷鍵呢,建議用ALT或是CTRL或是其他的按鍵來配合A,或是用F1~F12,以下介紹用ALT+A的方式也是最簡單的方式,只要將command.Caption最後面加上&A即可

    例如原本command.Caption=command1但若是要用快捷建ALT+A,更改為command.Caption=command1&A

    若是需要其他方式,先決條件,需要把FORM的KeyPreview屬性=TRUE, 然後統一在

    FORM1_KeyDown中管理

    若是在整個程式中 A 就是指代表按鈕的快捷鍵,與任何輸入或是控制項無關時,

    可是照我上面說的把FORM的KeyPreview屬性=TRUE, 然後統一在

    FORM1_KeyDown中管理,因此會向如下的程式碼即可達到你要的

    Private Sub Command1_Click()

    MsgBox "快捷鍵A"

    End Sub

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

    If KeyCode = Asc("a") Or KeyCode = Asc("A") Then

    Command1_Click

    End If

    End Sub

    Source(s): MySalf
  • Anonymous
    2 decades ago

    不應該編輯在

    Private Sub Command1_KeyPress(KeyAscii As Integer)

    End Sub

    而且好像沒有能讓 Private Sub Command1_KeyPress(KeyAscii As Integer)

    裡面程式動的程式碼

    要用 _KeyPress(KeyAscii As Integer)

    後面那些東西驅動才行

Still have questions? Get your answers by asking now.