Choisir les caractères autorisés

Commenter

Contenu du snippet

Pour décider qu'elle caractère est admissible dans le TextBox

Source / Exemple : 


Public Function StringChange(str$)
Dim checkstring$
Dim i As Integer
Redo:
'Lettre auquelle ils ont droit
checkstring$ = "1234567890ABCDEFabcdef"
For i = 1 To Len(str$)
If InStr(1, checkstring, Mid(str$, i, 1)) = 0 Then
str$ = Mid(str$, 1, i - 1) & Mid(str$, i + 1)
GoTo Redo
End If
Next i
StringChange = str$
End Function

Conclusion :


Facile a faire marcher

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_max12)