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
Facile a faire marcher
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
- Str$ vba
- [VBA]Textbox - N'autoriser une chaîne de caractère définie - VBA Excel ✓ - Forum - Visual Basic 6
- Utilisation d'expression régulière pour n'autoriser que la saisie de caractère n ✓ - Forum - Visual Basic 6
- Un objet qui autorise la valeur null doit posséder une valeur ✓ - Forum - C# / .NET
- Regex caractères spéciaux ✓ - Forum - Regex
- Parcourir une chaîne de caractère java - Forum - Java
- Messages postés
-
2493
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Contributeur
- Dernière intervention
- 5 juin 2016
1C'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
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.