Comment controler la saisie en VB 6.0
Résolu
martial de vinci
Messages postés
36
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aimerais savoir comment empêcher l'utilisateur d'écrire des lettres alphabétiques.
ou comment lui afficher un msgbox à chaque fois qu'il tape une lettre alphabétique.
merci d'avance.
--
martial de vinci
j'aimerais savoir comment empêcher l'utilisateur d'écrire des lettres alphabétiques.
ou comment lui afficher un msgbox à chaque fois qu'il tape une lettre alphabétique.
merci d'avance.
--
martial de vinci
1 réponse
-
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
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
