Pbm de saisie dans TextBox

Résolu/Fermé

wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 - 30 avril 2010 à 16:13
wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 - 3 mai 2010 à 10:51

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:

Pbm de saisie dans TextBox
Saisie gestuelle iphone - Guide
Saisie vocale sms - Guide
Gboard saisie vocale - Accueil - Applications & Logiciels
Saisie vocale whatsapp - Accueil - Messagerie instantanée
Saisie automatique - Guide

2 réponses

Réponse 1 / 2

wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 17
Modifié par wa7ch3000 le 3/05/2010 à 12:44

Ca va j'ai trouver la SOL

:)))))))))

Réponse 2 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
30 avril 2010 à 16:25

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.

wa7ch3000 Messages postés 336 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 19 juillet 2015 17
3 mai 2010 à 10:51

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

Discussions similaires

Formule calcul d'un total conditionnel

saisie vocale sur redmi note 9

Que veut-dire valeur numérique

Calcul d'un total

formule de calcule