Pbm de saisie dans TextBox

Résolu

wa7ch3000 Messages postés 375 Statut Membre -
wa7ch3000 Messages postés 375 Statut Membre - 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

Afficher la suite

2 réponses

Réponse 1 / 2
wa7ch3000 Messages postés 375 Statut Membre 17

Ca va j'ai trouver la SOL

:)))))))))
0
Réponse 2 / 2
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention 1 313

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
1. wa7ch3000 Messages postés 375 Statut Membre 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

Pbm de saisie dans TextBox

2 réponses

Discussions similaires

Newsletters