Comment controler la saisie en VB 6.0
Résolu/Fermé
martial de vinci
Messages postés
28
Date d'inscription
jeudi 6 décembre 2012
Statut
Membre
Dernière intervention
2 septembre 2014
-
9 janv. 2013 à 11:22
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 9 janv. 2013 à 11:42
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 9 janv. 2013 à 11:42
A voir également:
- Comment controler la saisie en VB 6.0
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Comment saisir une adresse url - Guide
- Saisie vocale sms - Guide
- Controler temperature pc - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
9 janv. 2013 à 11:42
9 janv. 2013 à 11:42
Bonjour,
Si c'est vraiment du VB6.0: exemple de code
J 'ai mis un test sur quelques touches, mais il faudra en ajouter et si touche supprime ou backspace il faudra modifier l'affichage de la textbox
Bonne suite
Si c'est vraiment du VB6.0: exemple de code
J 'ai mis un test sur quelques touches, mais il faudra en ajouter et si touche supprime ou backspace il faudra modifier l'affichage de la textbox
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 20 Or (KeyCode >= 16 And KeyCode <= 18) Or KeyCode = 45 Or KeyCode = 91 Then Exit Sub
If KeyCode < 48 Or KeyCode > 58 Then
MsgBox ("erreur")
If Len(Me.TXT_Saisie.Text) > 1 Then
Me.TXT_Saisie.Text = Left(Me.TXT_Saisie.Text, Len(Me.TXT_Saisie.Text) - 1)
Else
Me.TXT_Saisie.Text = ""
End If
End If
End Sub
Bonne suite
