Discussion :

[Bencici]

Bonjour,

je suis débutant et je cherche à associer une touche (type F1,F2,F5) à un button pour "l'activer".
Quelle est la démarche à suivre ?

Merci d'avance.

[-N4w4k-]

Salut,

Une discussion a été ouverte il n'y a pas longtemps sur ce sujet.
Voir ici.

++

[Bencici]

Salut,

Une discussion a été ouverte il n'y a pas longtemps sur ce sujet.
Voir ici.

++

Ouos , j'ai pensé à la Recherche Google mais pas à celle du forum, désolé.
Je regarde ça.

[-N4w4k-]

C'est pas grave, de toute façon il fallait trouver les bons mot clefs à chercher, ce qui n'est pas toujours évident

[Bencici]

Bon, je pense que répondre ici est mieux que UP l'autre sujet donc :

J'ai mis ceci à la fin de mon code mais ça ne marche pas :

Code :

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

1
2
3
4
5
    Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp
        If e.KeyValue = Keys.F8 Then
            Timer1.Enabled = True
        End If
    End Sub

[-N4w4k-]

Il faut regarder l'avant dernier message de la discussion en question:

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

Ce qui devrait donner dans ton cas:

Code :

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

1
2
3
4
5
    Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyValue = Keys.F8 Then
            Timer1.Enabled = True
        End If
    End Sub