Hotkeys

ganjin

Mitglied
Hallo,
Habe das problem dass meine hotkeys nicht funktionieren.
Habe es so gemacht:
Code:
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If GetKeyPress("{F4}") Then
            Timer1.Enabled = True
        End If
        If GetKeyPress("{F5}") Then
            Timer1.Enabled = False
 
Versuchs mal so:
Visual Basic:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F5 Then
            '...
        ElseIf e.KeyCode = Keys.F4 Then
            '...
        End If
    End Sub

;)
 
Code:
 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F8 Then
            Timer1.Enabled = True
        End If
        If e.KeyCode = Keys.F9 Then
            Timer1.Enabled = False
            timer2.Enabled = False
        End If
    End Sub

Geht auch nich..............
 
Versuch mal die Abfrage in einen Timer zu stecken. Ist zwar sicherlich nicht die beste Methode, aber sollte funktionieren
 
Code:
Private Sub timer4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F8 Then
            Timer1.Enabled = True
        End If
        If e.KeyCode = Keys.F9 Then
            Timer1.Enabled = False
            spammer.Enabled = False
        End If
Geht nicht
Code:
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If GetKeyPress(Keys.G) Then
            spammer.Enabled = True
        End If
        If GetKeyPress(Keys.F) Then
            spammer.Enabled = False
        End If

Geht auch nicht.
 
Zuletzt bearbeitet:
es sollte eigentlich so gehn:
Code:
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.A Then
            MsgBox("lol")
        End If

so habe ich auch videos schon gesehn, aber es geht einfach nicht

Aber das scheint nur bei meiner jetzigen form so zu sein...........
wenn ich ein neues projekt erstelle geht das......
 
Zuletzt bearbeitet:
Zurück