Hot Key werkt niet.

[kantersjojo]

Weet iemand waarom deze hotkey niet werkt? (Regel 36)

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dwextraininfo As Long)
    Private Const mouseclickup = 4
    Private Const mouseclickdown = 2
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = Val(0) Then
            Timer1.Stop()
            MsgBox("Please enter something higher then ''0''")
        Else
            Timer1.Interval = TextBox1.Text
            Timer1.Start()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = Val(0) Then
            Timer1.Stop()
            MsgBox("Stop what?")
        Else
            Timer1.Interval = TextBox1.Text
            Timer1.Stop()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mouse_event(mouseclickdown, 0, 0)
        mouse_event(mouseclickup, 0, 0)
        If GetAsyncKeyState(Keys.F4) Then
            Timer1.Interval = TextBox1.Text
            Timer1.Stop()
        ElseIf GetAsyncKeyState(Keys.F5) Then
            Timer1.Interval = TextBox1.Text
            Timer1.Start()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label2.Text = Val(Label2.Text) + Val(1)
    End Sub

 

[kantersjojo]

niemand?

 

[misterl0l]

waar werk je eigenlijk mee??

Gebruik je vb 8?

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.F5 Then
            Timer1.Interval = TextBox1.Text
            Timer1.Start()
[B][COLOR="Red"]        [B]End If[/B][/COLOR][/B]
    End Sub

Mischien helpt dit??

Ik weet niet of dit moet

 

[kantersjojo]

waar werk je eigenlijk mee??

Gebruik je vb 8?

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.F5 Then
            Timer1.Interval = TextBox1.Text
            Timer1.Start()
[B][COLOR="Red"]        [B]End If[/B][/COLOR][/B]
    End Sub

Mischien helpt dit??

Ik weet niet of dit moet

idd ik gebruik 2008 en is het nog gelukt met downloaden? zo ja mooi :thumb:

on topic: ik heb dat ook al gebruikt maar het lijkt maat niet te werken het lijkt wel alsof ik maar 1 hotkey kan gebruiken ofzo

 

[misterl0l]

idd ik gebruik 2008 en is het nog gelukt met downloaden? zo ja mooi :thumb:

Nee


Als dat niet werkt moet je misschien een menu maken..

 

[kantersjojo]

kom op mensen ... jullie moeten het toch wel wete?

 

[The Mighty Atom]

Geen idee wat GetAsyncKeyState doet, maar ik gebruik altijd e.KeyCode. Bijvoorbeeld:

        If e.KeyCode = Keys.F5 Then
            Me.BackColor = Color.Red

        ElseIf e.KeyCode = Keys.F6 Then
            Me.BackColor = Color.Blue

        End If

En dat onder het KeyDown event van het main form, met KeyPreview op True gezet.
Ik weet niet of je hier wat aan hebt.

Wat is de error message die je krijgt?