Keypress Event not firing

I currently have a form with a panel on it and then 100 pictureboxes inside the panel. I was using the keydown event to 'move' my map, which worked. I was doing something like this:

vb.net Code:

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Left AndAlso map(current_possition.X - 1, current_possition.Y).IsPassable AndAlso player.IsMoving = False Then
            current_possition.X -= 1
            player.CurrentLocation = current_possition
            player.player_move()
            Call load_view()
        ElseIf e.KeyCode = Keys.Right AndAlso map(current_possition.X + 1, current_possition.Y).IsPassable AndAlso player.IsMoving = False Then
            current_possition.X += 1
            Call load_view()
        ElseIf e.KeyCode = Keys.Up AndAlso map(current_possition.X, current_possition.Y - 1).IsPassable AndAlso player.IsMoving = False Then
            current_possition.Y -= 1
            Call load_view()
        ElseIf e.KeyCode = Keys.Down AndAlso map(current_possition.X, current_possition.Y + 1).IsPassable AndAlso player.IsMoving = False Then
            current_possition.Y += 1
            Call load_view()
        End If
    End Sub

The problem came when the user would just hold down the keys. It created really bad jumping, which is why I added the player.IsMoving = False, but that doesn't matter if the user holds the key down as the player wasn't moving when the key was origionally down. I've tried moving it to the keypress thinking that will solve my problem, and it looks almost identical to the key-down:

vb.net Code:

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        If e.KeyChar = ChrW(Keys.Left) AndAlso map(current_possition.X - 1, current_possition.Y).IsPassable AndAlso player.IsMoving = False Then
            current_possition.X -= 1
            player.CurrentLocation = current_possition
            player.player_move()
            Call load_view()
        ElseIf e.KeyChar = ChrW(Keys.Right) AndAlso map(current_possition.X + 1, current_possition.Y).IsPassable AndAlso player.IsMoving = False Then
            current_possition.X += 1
            Call load_view()
        ElseIf e.KeyChar = ChrW(Keys.Up) AndAlso map(current_possition.X, current_possition.Y - 1).IsPassable AndAlso player.IsMoving = False Then
            current_possition.Y -= 1
            Call load_view()
        ElseIf e.KeyChar = ChrW(Keys.Down) AndAlso map(current_possition.X, current_possition.Y + 1).IsPassable AndAlso player.IsMoving = False Then
            current_possition.Y += 1
            Call load_view()
        End If
    End Sub

The problem is I set a breakpoint at the key_press, but it never fires. Any ideas as to why?

Edit - I do indeed have keypreview set to true.

Keypress Event not firing

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

The 10 Tennessee Cities With The Largest Black Population For 2021

David Perell - Write of Passage 2025

charmilles roboform E998

Three walk

Shatta Wale – You Shock Me (Prod. by Willis Beatz)

Ek Bar Baby Selfish Hoke Apne Liye Jiyo Na Lyrics Translation | Race 3

Download: Rich Bizzy -Panono Ukwenda (Cover)

2014 kambi phone calls recording Mp3 Audio clips surabila yamangal

Oracle GoldenGate 12c New Features: Trail Encryption and Credentials with...

Praye – Wodin (Throwback Music)

Sarah Samis, Emil Bove III

99 God Status for Whatsapp, Facebook

Mp3 Download: Mdu - Mazola

Karimnagar District Police Office Mobile Numbers List in Telangana State

Firefighters attend car crash in Melton Mowbray

Pop Smoke – Meet the Woo [iTunes Plus M4A]

[GET] Fabian Markl – AI Automations and Agent Templates

CAMDEN CAMPERS SALE IS ON NOW THIS CRACKING VW AUTOHOMES KOMET HAS BEEN...

The Who – Who’s Next (1971/2023) [High Fidelity Pure Audio Blu-Ray Disc]