Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Left Then 'code End If End Sub
Private Sub Form1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown Select Case e.KeyCode Case Keys.Escape End Case Keys.Up MsgBox("up") Case Keys.Down MoveMenu(MoveMenuDirection.Bas) End Select e.IsInputKey = true End Sub