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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 9 janv. 2013 à 11:42
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 9 janv. 2013 à 11:42
A voir également:
- Comment controler la saisie en VB 6.0
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Saisie gestuelle iphone - Guide
- Comment saisir une adresse url - Guide
- Saisie vocale sms - Guide
1 réponse
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
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