Comment controler la saisie en VB 6.0 [Résolu/Fermé]

Signaler
Messages postés
28
Date d'inscription
jeudi 6 décembre 2012
Statut
Membre
Dernière intervention
2 septembre 2014
-
Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
-
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.



1 réponse

Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
1 483
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