Couinement lors de la frappe sur la touche "Entrée" [Résolu]
Zermelo - - Dernière réponse : Zermelo - 26 avril 2013 à 18:56
A voir également:
- Keychar 13
- Empêcher la frappe d'une touche dans tout le logiciel ✓ - Forum - Visual Basic 6
- Comment simuler la frappe de la touche "copie d'écran"? ✓ - Forum - Delphi / Pascal
- Desactivation de la touche "entree" (ou autre) - Codes sources - Javascript (Cookies)
- Touche entree et echape sur listview ✓ - Forum - ASM
- Taper la touche "Entrée" pour revenir à la ligne dans un textbox ✓ - Forum - Visual Basic 6
7 réponses
Meilleure réponse
- Messages postés
- 693
- Date d'inscription
- samedi 18 mai 2002
- Dernière intervention
- 17 avril 2017
Bonjour,
Pour éviter le bip (le couinement) en VB6 on code ainsi :
Je suppose qu'en VB2005 ce sera :
Cheyenne
Pour éviter le bip (le couinement) en VB6 on code ainsi :
If KeyCode vbKeyReturn then KeyCode 0
Je suppose qu'en VB2005 ce sera :
If e.KeyCode 13 Then e.KeyCode 0: lBox.Text = tBox.Text
Cheyenne
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 104 internautes ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour, Zermelo,
L'évènement KeyPress me parait plus approprié, puisque travaillant avec le KeyChar
Tu devrais l'essayer, avec bien sûr la propriété Multiline à True, en t'inspirant de l'exemple donné patr MSDN ===>>
Tapez le texte de l'url ici.
et en décidant ce que tu veux si Asc(e.KeyChar) = 13
Mais, comme tu le sais, je ne suis pas VB.Nettiste et ne peux donc affirmer que ce sera bon. Essaye quand-même.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
L'évènement KeyPress me parait plus approprié, puisque travaillant avec le KeyChar
Tu devrais l'essayer, avec bien sûr la propriété Multiline à True, en t'inspirant de l'exemple donné patr MSDN ===>>
Tapez le texte de l'url ici.
et en décidant ce que tu veux si Asc(e.KeyChar) = 13
Mais, comme tu le sais, je ne suis pas VB.Nettiste et ne peux donc affirmer que ce sera bon. Essaye quand-même.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 104 internautes ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
e.Handled = True fait que la touche frappée (donc ta touche enter si elle est concernée) est ignorée.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 104 internautes ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Si le TextBox est déclaré multiligne, la frappe de la touche Entrée est prise en compte comme un retour à la ligne
pas si tu l'annules (regarde l'exemple du lien que je t'ai passé)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Bonsoir.
J'ai apporté une petite modification, qui clarifie sans changer le principe
J'ai par ailleurs vérifié que ce code fonctionne que le TextBox soit multiligne ou non. Dans l'écriture e.KeyChar ToChar( x ), j'ai bestialement essayé à partir de x 0.
Étant illettré, je signe d'une croix : ×
J'ai apporté une petite modification, qui clarifie sans changer le principe
Imports System.Convert
Public Class Accueil
Private Sub tBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tBox.KeyUp
If e.KeyCode 13 Then lBox.Text tBox.Text
End Sub
Private Sub tBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tBox.KeyPress
If ToChar(13) e.KeyChar Then e.KeyChar ToChar(3)
End Sub
End Class
J'ai par ailleurs vérifié que ce code fonctionne que le TextBox soit multiligne ou non. Dans l'écriture e.KeyChar ToChar( x ), j'ai bestialement essayé à partir de x 0.
Étant illettré, je signe d'une croix : ×
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.