PreviewKeyDown только срабатывает один раз

Question

В Visual Basic 2010 express я изначально использовал событие keyDown, чтобы использовать стрелки для управления Picturebox, но он запускался только при удержании Ctrl + стрелка .. и решение, которое я нашел в Интернете, это использовать previewKeyDown. Это срабатывает только один раз, а затем не реагирует на любые нажатия клавиш. KeyPreview имеет значение true.

Private Sub Form1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles MyBase.PreviewKeyDown 
    Select Case e.KeyCode 
     Case Keys.Up 
      vy = vy - 2 
     Case Keys.Left 
      vx = vx - 2 
     Case Keys.Right 
      vx = vx + 2 
    End Select 
    End Sub 

Answer 1

Изменить

Private Sub Form1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles MyBase.PreviewKeyDown 

Для

Private Sub Form1_PreviewKeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown 

Также попробуйте добавить e.Handled=True

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
    Select Case e.KeyCode 
     Case Keys.Up 
      vy = vy - 2 
      e.Handled = True 
     Case Keys.Left 
      vx = vx - 2 
      e.Handled = True 
     Case Keys.Right 
      vx = vx + 2 
      e.Handled = True 
    End Select 
End Sub 

Answer 2

Попробуйте использовать KeyDown вместо PreviewKeyDown, Li ke this:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
    Select Case e.KeyCode 
     Case Keys.Up 
      vy = vy - 2 
     Case Keys.Left 
      vx = vx - 2 
     Case Keys.Right 
      vx = vx + 2      
    End Select 
End Sub