Pbm de saisie dans TextBox

Résolu
wa7ch3000 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   -  
wa7ch3000 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   -
bonjour,

alors, je suis en cous de développer une petite application en VB6, parmi ses fonctionnalités est de lire les valeurs de températures a partir d'un champ "textbox",..

alors, pour forcer le format de saisie (juste les chiffre et ,) voici un bout de code : 

Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim val As Double
Dim allowedKeys As String
allowedKeys = "0123456789,"
If (InStr(allowedKeys, Chr(KeyAscii)) = 0) Then
KeyAscii = 0
End If
End Sub


mais le problème c'est si l'utilisateur veut changer la valeur qu'il a taper !!
comment je peux ajouter la touche "backspace" au allowedKeys

merci
A voir également:

2 réponses

Réponse 1 / 2
wa7ch3000 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   17
 
Ca va j'ai trouver la SOL

:)))))))))
0
Réponse 2 / 2
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Si tu as trouvé la solution, peux-tu la mettre sur le forum, histoire que la solution soit disponible pour le cas où une personne cherche à faire la même chose dans le futur.

Cordialement.
0
wa7ch3000 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   17
 
a oui désolé :

voici le code

Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim val As Double
Dim allowedKeys As String
allowedKeys = "0123456789,"
If (InStr(allowedKeys & Chr(8), Chr(KeyAscii)) = 0) Then
KeyAscii = 0
End If
End Sub
0

Discussions similaires

saisie vocale sur redmi note 9
neby64 -
Lully -

14 réponses
Formule calcul d'un total conditionnel
Cloclem -
Cloclem -

2 réponses
langue Française absente pour la saisie
Ibowl77 -
ibowl77 -

2 réponses
Je n' arrive pas a activer la saisie vocale
Anna011290 -
Anna011290 -

4 réponses