Choisir les caractères autorisés

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 026 fois - Téléchargée 60 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
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
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
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

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.