[RESOLVED] Function Keys

[hooman59]

hi friends ,in order my application more friendly and let user use keyboard instead of mouse
I used below code;

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 97 Or KeyAscii = 65 Then
Button1_Click
End If
end sub

so when user presses "a" or "A" it's like as if he has clicked on button1.this piece of code works well,now my question is how can I replace "a" with a function key as

F1 for example?it seems they dont have it (or they do??)


thank you so much

[Max187Boucher]

you could use api instead

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Const VK_F1 As Long = &H70

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  Debug.Print "Key F1 Pressed: " & CBool(GetAsyncKeyState(VK_F1))
End Sub

[DataMiser]

Instead of using KeyPress use the KeyDown event to capture function key code

No need to use the API for this

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 112
        MsgBox "You pressed F1"
    Case 113
        MsgBox "You pressed F2"
End Select
End Sub

[hooman59]

thank you so much

[Magic Ink]

No need to use literals;

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyF1
        MsgBox "You pressed F1"
    Case vbKeyF2
        MsgBox "You pressed F2"
End Select
End Sub