[RESOLVED] Hotkey

[Eldrup]

The F3 hotkey works fine, but i cant get the F4 hotkey to work. What is the problem?

Here is the code...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        Dim stophotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F3)
        stophotkey = GetAsyncKeyState(Keys.F4)
        If starthotkey = True Then
            'start
            Timer1.Enabled = True
            If stophotkey = True Then
                'stop
                Timer1.Enabled = False
            End If
        End If
    End Sub

[.paul.]

have a look at the hotkeys link in my signature.
it'll work with all of the F keys except F12 which is reserved

[Eldrup]

I figured out my self

Old code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        Dim stophotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F3)
        stophotkey = GetAsyncKeyState(Keys.F4)
        If starthotkey = True Then
            'start
            Timer1.Enabled = True
            If stophotkey = True Then
                'stop
                Timer1.Enabled = False
            End If
        End If
    End Sub

New code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        Dim stophotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F3)
        stophotkey = GetAsyncKeyState(Keys.F4)
        If starthotkey = True Then
            'start
            Timer1.Enabled = True
             End if
            If stophotkey = True Then
                'stop
                Timer1.Enabled = False
            End If
    End Sub

[.paul.]

that'd work. you should change your API declaration:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer