Choisir les caractères autorisés

0/5 (2 avis)

Snippet vu 4 137 fois - Téléchargée 61 fois

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

Ajouter un commentaire Commentaires
ghuysmans99 Messages postés 2493 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 1
3 juil. 2008 à 08:01
Mouais ...
C'est pas plus simple :

Private Sub txt_HexValue_KeyPress(KeyAscii As Integer)
Dim AllowedKeys As String
AllowedKeys = "1234567890ABCDEFABCDEF" & Chr(8) If InStr(AllowedKeys, Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub
cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008
8 juin 2002 à 09:43
Cool

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.