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 16862 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 janvier 2023 - 9 janv. 2013 à 11:42
f894009 Messages postés 16862 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 janvier 2023 - 9 janv. 2013 à 11:42
A voir également:
- Comment controler la saisie en VB 6.0
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Autorisation non accordée d'activer la saisie vocale - Forum Xiaomi
- Test de recrutement opérateur de saisie ✓ - Forum Études / Formation High-Tech
- Controle de saisie python - Forum Python
- Liste déroulante excel (saisie 1ères lettres) - Forum Excel
1 réponse
f894009
Messages postés
16862
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 janvier 2023
1 679
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