Pbm de saisie dans TextBox

Résolu
wa7ch3000 -  
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

2 réponses

  • Votes
  • Date
  • Date décroissante
  2. chossette9 Contributeur
    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.
    1. wa7ch3000 Auteur
      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

exo pix
Xtyller

2 réponses
Formule calcul d'un total conditionnel
Cloclem

2 réponses
Désactiver la saisie vocale de texte
caliafpe

20 réponses
comment enlever le mode vocale du clavier de mon telephone ?
lololedegouterdelavie ! :-(

11 réponses
Sommes et sous totaux
housecd

2 réponses