Interdire des caracteres

Signaler
Messages postés
12
Date d'inscription
lundi 12 janvier 2004
Statut
Membre
Dernière intervention
20 février 2011
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
bonjour les AS
alors voici mon petit probleme du jour
je voudrai interdir des caracteres du style /*-+%ùµ*s^£$=........ dans un texbox lorque que l on valide le mot et affiche un MSGbox
merci a vous
c tres urgent

1 réponse

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
il te sufft dans l'evenement KeyPress de filtrer ces caractères :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Const Forbidden As String = "/*-+%ùµ*^£$="

If InStr(Forbidden, Chr$(KeyAscii)) <> 0 Then
MsgBox "Carctère invalide !"
KeyAscii = 0
End If
End Sub