Comment controler la saisie en VB 6.0
Résolu
martial de vinci
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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.
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.
A voir également:
- Comment controler la saisie en VB 6.0
- Saisie gestuelle iphone - Guide
- Vb - Télécharger - Langages
- Comment saisir une adresse url - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
- Saisie vocale sms - Guide
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
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