Codenstuff.com

Posted: **Mon Mar 14, 2011 10:05 pm**

How can i detect if say
w is being held in and when it is released show a message box ?

Posted: **Mon Mar 14, 2011 10:11 pm**

Most controls have the MouseUp event. Just go to Code View, in the top left combobox, choose your control, in the top right, choose MouseUp.

Posted: **Tue Mar 15, 2011 1:14 am**

You can't use mouse events to detect key states. Use GetAsyncKeyState to check for that.

Code: Select all

    <DllImport("user32.dll")> Shared Function GetAsyncKeyState(ByVal vKey As Integer) As Short
    End Function

    Dim isDown As Boolean = False

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim res As Short = GetAsyncKeyState(Keys.W)
        If res = -32767 Then
            isDown = True
        ElseIf res = 0 And isDown Then
            Timer1.Stop()
            MsgBox("W released")
        End If
    End Sub

Posted: **Tue Mar 15, 2011 1:50 am**

Couldn't the same goal be achieved using:

Code: Select all

    Public WDown As Boolean = False
    Public OtherDown As Boolean = False


    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.W Then
            WDown = True
        Else
            OtherDown = True
        End If
    End Sub


    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If WDown = True Then
            WDown = False
            MsgBox("W released")
        Else
            OtherDown = False
            MsgBox("Other key released")
        End If
    End Sub

Posted: **Tue Mar 15, 2011 3:58 am**

Ill try it later thanks for replying mandai and reboh

Posted: **Tue Mar 15, 2011 3:49 pm**

GoodGuy17 wrote:

Couldn't the same goal be achieved using:

Code: Select all

    Public WDown As Boolean = False
    Public OtherDown As Boolean = False


    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.W Then
            WDown = True
        Else
            OtherDown = True
        End If
    End Sub


    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If WDown = True Then
            WDown = False
            MsgBox("W released")
        Else
            OtherDown = False
            MsgBox("Other key released")
        End If
    End Sub

I suppose he is trying to develop a keyboard hook, a keyboard hook is system wide instead of just on a form, your code only works on a specific form, using mandai's code(Asynckeys), you're able to detect keys being pressed system wide, therefore, I recommend him using mandai's code.

Codenstuff.com

Detect if keys are being held down

Detect if keys are being held down

Re: Detect if keys are being held down

Re: Detect if keys are being held down

Re: Detect if keys are being held down

Re: Detect if keys are being held down

Re: Detect if keys are being held down