snoopline
Messages postés29Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention21 septembre 2008
-
26 oct. 2006 à 18:33
snoopline
Messages postés29Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention21 septembre 2008
-
27 oct. 2006 à 01:25
Bonjour,
Je souhaite activer "Command_adduser_click" (bouton)
quand la touche "Enter" est utilisee dans "text_newuser" (textbox).
Private Sub text_newuser_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then Command_adduser_Click
End Sub
(avec vb6)
La touche entree active bien la procedure "Command_adduser_click" mais un son (bing ) m'indique que tout ne semble pas tourner rond. Aucun message d'erreur n'apparait
Quand j'active le bouton "Command_adduser_click" en cliquant dessus: pas son.
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 oct. 2006 à 22:42
Juste une précision :
Le beep sonore (le "bing" de notre ami) est là pour signaler une erreur de saisie.
Cette erreur ne se produit que si l'utilisateur tente d'insérer un retour charriot dans une Textbox dont la propriété multiline est fixée à False (car ce serait alors une erreur que de vouloir insérer un retour-charriot)
Il est alors plus "propre" de donner à la textbox la propriété multiline True et de gérer la Keyascii 13 comme le signale Casy.
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 26 oct. 2006 à 22:48
D'ailleurs en lisant ton commentaire, je remarque une erreur dans ma réponse :
Ca sera mieux comme ça , quand même
Private Sub text_newuser_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command_adduser_Click
KeyAscii = 0 'Filtre et ignore le caractère
End If
End Sub
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #