Annuler l'appui sur une touche

Bonjour à tous

J'aimerai dans mon programme, que lorsque j'appuie sur la touche Entrer, cela fasse comme si j'appuyais sur la touche Tab. J'ai donc trouvé comment envoyer au programme l'appuie sur Tab avec

Code:

---

If e.KeyValue = Keys.Enter Then My.Computer.Keyboard.SendKeys("{TAB}")

---

Le problème étant que, il envoi bel et bien la touche Tab, mais n'ANNULE pas l'appuie sur la touche Entrer, ce qui fait que lorsque j'appuie sur Entrer le programme reçois Entrer puis Tab.

Auriez vous une solution ? Merci d'avance

Xavier

utilisez l'evenement keypress et donnez à la propiété Handled la valeur true comme ci-dessous:

Code:

---

1 2 3 4

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress e.Handled = True ... End Sub

---

complété avec un e.keyvalue=0 pour être sûr

Bonjour

La technique marche bien, mais j'aimerai que cela ne se produise uniquement lorsque c'est la touche Entrer qui est activé, et j'ai essayé plusieurs combinaison de code mais aucune ne marche

Code:

---

If e.KeyChar = ChrW(13) Then e.Handled = True

---

Comment puis-je faire ?

Essaye ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = Keys.Enter Then My.Computer.Keyboard.SendKeys("{TAB}") e.SuppressKeyPress = True e.Handled = True End If End Sub

---

J'avais déjà essayé ceci et l'ordinateur comprend aussi Entrer puis Tab :?
En fait c'est pour un ComboBox avec DropDownStyle = Simple. j'ai activé l'auto-suggestion, lorsqu'il me propose quelque chose et que j'appuie sur Tab, l'item proposé est sélectionné. mais lorsque j'appuie sur Entrer, le texte se vide et rien n'est sélectionné. C'est donc pour cela que j'aimerai que Entrer = Tab :roll:

keys.return ?

Citation:

---

Envoyé par xav2303

J'avais déjà essayé ceci et l'ordinateur comprend aussi Entrer puis Tab :?
En fait c'est pour un ComboBox avec DropDownStyle = Simple. j'ai activé l'auto-suggestion, lorsqu'il me propose quelque chose et que j'appuie sur Tab, l'item proposé est sélectionné. mais lorsque j'appuie sur Entrer, le texte se vide et rien n'est sélectionné. C'est donc pour cela que j'aimerai que Entrer = Tab :roll:

---

Bon, j'ai fait quelques tests avec ceci :

Code:

---

1 2 3

AutoCompleteMode = SuggestAppend AutoCompleteSource = ListItems DropDownStyle = DropDown

---

Et ça marche snns code supplémentaire
Mais en mettant DropDownStyle = Simple, là, ça ne marche plus effectivement, et je ne trouve pas de solution non plus.

Voilà c'est exactement ça et c'est assez énervant de ne pas pouvoir simplement faire la touche "Entrer"... Au pire je me servirait de la touche Tab, mais cela m'aurait assez arrangé.
Sacré problème ! :roll:

avez vous essayé ça

Code:

---

1 2 3

If e.KeyChar = ChrW(Keys.Return) Then e.Handled = True End If

---

avec keys.enter, ça ne marche pas mais avec keys.return ça marche chez moi.

Chez moi le texte se vide toujours avec Keys.Return lors de l'appuie sur la touche entré :?

Citation:

---

Envoyé par sevyc64

Bon, j'ai fait quelques tests avec ceci :

Code:

---

1 2 3

AutoCompleteMode = SuggestAppend AutoCompleteSource = ListItems DropDownStyle = DropDown

---

Et ça marche snns code supplémentaire
Mais en mettant DropDownStyle = Simple, là, ça ne marche plus effectivement, et je ne trouve pas de solution non plus.

---

Bonsoir,

En effet, dans ces conditions, la touche Enter annule le texte sélectionné du ComboBox, provoquant son événement TextChanged qui bien sûr retourne une valeur vide.
Pourquoi ?, je ne sais pas.
L'idée suivante est d'intercepter l'appui de cette touche, avant son action par l'événement PreviewKeyDown en attribuant la valeur True à la variable Bool, ce qui occultera le traitement TextChanged du Combo.
A tester, MainJob1 étant le ComboBox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

' item : valeur de l'élément ' index : position de l'élément ' bool = True si la touche Entrée est appuyée. Dim item As String = String.Empty Dim index As Integer = -1 Dim bool As Boolean = False   Private Sub MainJob1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles MainJob1.PreviewKeyDown   If e.KeyValue = Keys.Enter Then bool = True End If End Sub   Private Sub MainJob1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MainJob1.KeyDown   If e.KeyValue = Keys.Enter Then MainJob1.SelectedIndex = index End If   End Sub   Private Sub MainJob1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainJob1.TextChanged   If bool = False Then item = MainJob1.Text index = MainJob1.FindString(item) End If bool = False   End Sub

---