Les Allergies
Alimentaires
Posez votre question Signaler

KEYPRESS & CHOIX DES TOUCHES EN VB

Mercier Stéphane - Dernière réponse le 11 sept. 2008 à 18:53
en utilisant le keypress, j'ai écrit ce qui suit :
Private Sub montant_keypress(KeyAscii As Integer)
'prise en compte unique des valeurs numériques
'en supprimant toute autre information du clavier
If InStr("1234567890,", Chr$(KeyAscii)) = 0 And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> 8 And KeyAscii <> 25 And KeyAscii <> 44 And KeyAscii <> 46 Then
KeyAscii = 0


Je neutralise bel et bien les touches du clavier, mais je n'obtiens pas ce que je veux !
je désire obtenir l'utilisation des touches 1234567890 en majuscule directement mais aussi convertir le point (touche .) en virgule (touche ,) mais aussi la virgule (touche virgule) et ce dans un même temps.
De plus, je ne veux pas activer le (?) ni le (;)
Je suis novice, alors si quelqu'un peut m'aider !!!
merci d'avance
Lire la suite 

KEYPRESS & CHOIX DES TOUCHES EN VB »

2 réponses
Réponse
+15
moins plus
5 ans 1/2 plus tard...

Private Sub montant_KeyPress(Index As Integer, KeyAscii As Integer)
'les chiffres 0 à 9 ont les codes ASCII 48 à 57
'43 est le signe +, 45 est le signe - et 46 est le point .
If (KeyAscii < 48 Or KeyAscii > 57) _
And Not KeyAscii = 43 _
And Not KeyAscii = 45 _
And Not KeyAscii = 46 Then
KeyAscii = 0
End If
End Sub

ça donne un ordre d'idée.
Ajouter un commentaire
Réponse
+6
moins plus
j ai testé ca marche

merci, depuis 6 ans j etais bloqué !!!
Ajouter un commentaire
Ce document intitulé « KEYPRESS & CHOIX DES TOUCHES EN VB » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?