Utiliser l'evenement keydown

Bonjour, bonsoir à tous forumeurs et forumeuses, je vous explique, je désire attribuer à une touche en utilisant un Keydown, qui, lorsque l'on appuie sur une touche, telle que Alt, alors cela reviendrait à appuyer sur le bouton "quitter", qui lui, ferme l'application.
Apres plusieurs recherches ( mon bouquin pour visual studio 2008)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Button2_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown If e.Shift Then   Button2.click = UCase(Button2_click)   End If   End Sub

---

Mais ça ne fonctionne pas, sauriez vous comment faire ?

Salut

tu veux en appuyant sur la touche alt simuler le clique du bouton

Code:

---

1 2 3 4 5

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Menu Then Button2.PerformClick() End If End Sub

---

Voici le code lorsque l'on appuie sur le bouton "quitter"

Code:

---

1 2 3 4 5 6

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If MsgBox("Voulez vous quitter l'application ?", vbYesNo, "Quitter") = vbYes Then End End If End Sub

---

ce que je voudrais, est lorsque l'on appuie sur la touche Alt, alors c'est comme si l'on effectuait le clic sur le bouton c'est a dire faire
e.Alt = button2.click

le keydown de la touche alt de ta form ?

Oui créer une Private Sub, disant que
Si Keydown touche alt
alors evenement Boutonquitter

peut on le faire ?

As tu testé le code donné

à quoi sert de simuler le click par un keydown
écrit dans la sub du keydown le code du button2 click

Oui je l'ai testé, une fois l'application lancé, j'ai simplement appuyé sur la touche Alt, et rien ne s'est passé, que ce soit Alt ou AltGr

Ce qui donne dans la Sub du keydown

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Menu Then Button2.PerformClick() If MsgBox("Voulez vous quitter l'application ?", vbYesNo, "Quitter") = vbYes Then End End If End If End Sub

---

c'est possible que mon clavier est différent
chez moi ça marche
essai comme ça met un point d'arret à la ligne Private Sub Form1_KeyDown
et appuie sur alt et verifie la valeur de e.keycode

Code:

---

1 2 3 4 5 6

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown ' If e.KeyCode = Keys.alt Then Button2.PerformClick() End If End Sub

---

Je vais t'envoyer mon programme, que tu me dises ce qui ne va pas, car cette tentative ne fonctionne pas, c'est comme si il ne voyait pas qu'il existait une nouvelle fonction.

dans la proprieté de ta form
modifie le keypreview à true

et pas seulement ça il faut mettre le focus dans la form
quand tu lances ton application le focus est dans le textbox mensualité
donc si tu press le key alt c'est le keydown du textbox

et c'est ou ça le keypreview ?
de plus, comment modifie t'on toutes ces propriétés, je n'ai vu l'utilisation du keypress et keydown qu'aujourd'hui moi

dans l' IDE form1.vb[design]
dans la fenetre des proprietées de form1

et comment crée t'on le focus dans la form ?

après avoir testé ton code

Code:

---

1 2 3 4 5 6 7

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown   If e.KeyCode = Keys.Menu Then Button2.PerformClick() End If End Sub

---

tu peux écrire simplement

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown   If e.KeyCode = Keys.Menu Then If MsgBox("Voulez vous quitter l'application ?", vbYesNo, "Quitter") = vbYes Then End End If End If End Sub

---

le End c'est un peu brusque utilise plutot Close()
je n'ai pas trop compris pourquoi tu veux utilliser la touche alt

c'est une demande spécifique, on m'a demandé d'associer la touche Alt avec le bouton quitter.