KEYPRESS & CHOIX DES TOUCHES EN VB
Mercier Stéphane
-
Prisca -
Prisca -
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
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
A voir également:
- KEYPRESS & CHOIX DES TOUCHES EN VB
- Touches rémanentes - Guide
- Liste déroulante de choix excel - Guide
- Vb - Télécharger - Langages
- Touches télécommande tv - Guide
- Vb cable - Télécharger - Audio & Musique
2 réponses
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.
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.