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
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

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
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
0