Interdire des caracteres

dav1081 Messages postés 12 Date d'inscription lundi 12 janvier 2004 Statut Membre Dernière intervention 20 février 2011 - 20 juin 2004 à 12:48
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 juin 2004 à 13:12
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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
20 juin 2004 à 13:12
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
0