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
- Choisir les caractères autorisés
- Caractere autorisé lol ✓ - Forum - VB.NET
- [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
- Parcourir une chaine de caractère en python ✓ - Forum - Python
- Un objet qui autorise la valeur null doit posséder une valeur ✓ - Forum - C# / .NET
3 juil. 2008 à 08:01
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
8 juin 2002 à 09:43
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.