KeyDown Event not working
I am using the keydown event so that when i press the right arrow the image changes but when i run it nothing happens when i press the arrow key.
I have enabled the keypreview Properties please help me!
Code:
Private Sub Level1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If tmrWalk.Enabled = True Then
Else
If e.KeyCode = Windows.Forms.Keys.Right Then
If rl = 0 Then
picGuy.Image = My.Resources.guy_right
rl = 1
Else
picGuy.Image = My.Resources.guy_right2
rl = 0
End If
End If
tmrWalk.Enabled = True
End If
End Sub
Re: KeyDown Event not working
You could override ProcessCmdKey
VB.Net Code:
Protected Overrides Function ProcessCmdKey(ByRef sMessage As Message, ByVal oKeyData As Keys) As Boolean
If oKeyData = Keys.Left Then
'your code
Return True
ElseIf oKeyData = Keys.Right Then
'your code
Return True
Else
Return MyBase.ProcessCmdKey(sMessage, oKeyData)
End If
End Function