Discussion :

[eddyphan]

Salut à toute la communauté,
Je voudrais à la place de la souris, utilisé le clavier (les touches) pour déclencher certains événement sur mon formulaire.
Par exemple au lieu de cliquer sur le bouton imprimer pour sortir une facture, j'appuie sur la touche de fonction {F5} pour faire sortir la facture.

Merci de m'aider SVP...

[hunteshiva]

Bonjour,

Tu peux détécter la touche F5 avec les événements Key_UP ou Key_Down

voici un code que j'ai rapidement testé sur une de mes TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub txtCste1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtCste1.KeyUp
        If e.KeyValue = Keys.F5 Then
            MsgBox("F5_UP")
        End If
    End Sub

[eddyphan]

Bonjour,

Tu peux détécter la touche F5 avec les événements Key_UP ou Key_Down

voici un code que j'ai rapidement testé sur une de mes TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub txtCste1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtCste1.KeyUp
        If e.KeyValue = Keys.F5 Then
            MsgBox("F5_UP")
        End If
    End Sub

Merci hunteshiva
mERCI POUR VOTRE APPORT
Je veux que l'évenement sur le clavier se produise à partir du formulaire et non d'un textbox.
Je pense que la réponse ci-dessus est à partir d'un textbox

[hunteshiva]

Oui et...

les événements Key_UP ou Key_Down existent aussi pour un formulaire

[eddyphan]

Oui et...

les événements Key_UP ou Key_Down existent aussi pour un formulaire

Sur le formulaire, ça ne marche pas.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If

[hunteshiva]

Le truc a se tirer une balle....
Je comprend pas pourquoi vb.net est aussi tordu des fois...

il faut ajouter cette ligne au chargement du formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.KeyPreview = True

Sinon il ne détecte pas les touches

et la c'est bon tous les exemples que j'ai vue fonctionnent, en voici 2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Form1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Convert.ToChar(Keys.Escape) Then
            MsgBox("Echap_1")
        End If
 
    End Sub
 
    Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyValue = Keys.Escape Then
            MsgBox("Echap_2")
        End If
    End Sub

[eddyphan]

merci beaucoup,
ça marche