Limiter la saisie à certains caractères/touches dans un textbox en vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 875 fois - Téléchargée 42 fois


Contenu du snippet

Voila, c'est encore une source assez simple, mais qui pourra surement depanner certains...
les methodes que j'utilisais en vb6 n'étant plus utilisables, j'ai du passer deux heures à faire des tests sur les evenements keydown et keypress, jusqu'a trouver que l'annulation se resumait à e.Handled = True dans un evenement keypress... :)

Je n'ai pas mis d'exemples pour TOUTS les Char.ISblabla que vb gere, mais avec ca je pense que vous pouvez en deduire ce qu'il reste...

Source / Exemple :


Private Sub nombres_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nombre.KeyPress
        'on accepte que les chiffres (e.KeyChar.IsDigit(e.KeyChar)), ainsi que la touche back (Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back) , sinon on annule (e.Handled = True)
        If Char.IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled = True
    End Sub

    Private Sub lettres_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles lettre.KeyPress
        'on accepte que des lettres, ainsi que la touche back
        If Char.IsLetter(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled = True
    End Sub

    Private Sub majuscules_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles majuscule.KeyPress
        'on accepte que des majuscules, ainsi que la touche back
        If Char.IsUpper(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled = True
    End Sub

    Private Sub texte_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles texte.KeyPress
        'on accepte chiffre et lettres (IsLetterOrDigit), espaces (IsWhiteSpace) et ponctuation (IsPunctuation)
        'ce qu'ils considerent comme ponctuation comporte certains characteres speciaux, comme le % ou le @...
        If Char.IsLetterOrDigit(e.KeyChar) = False And Char.IsWhiteSpace(e.KeyChar) = False And Char.IsPunctuation(e.KeyChar) = False Then e.Handled = True
    End Sub

    Private Sub decimaltxt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles decimaltxt.KeyPress
        'petit exemple pratique :
        'on accepte chiffres et virgule, ainsi que la touche back. On remplace un eventuel point par une virgule, et on refuse la saisie d'une virgule en tant que premier caractere
        'remplacement du point par une virgule
        If Asc(e.KeyChar) = 46 Then e.KeyChar = ","
        'si c'est une virgule et qu'il y en a déja une dans le textbox, ou qu'elle est tappé en premier caractère, on annule la saisie
        If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 Or CType(sender, TextBox).Text = "") Then e.Handled = True
        'si le caractere n'est pas un chiffre, back ou une virgule, on annule
        If Char.IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back And Asc(e.KeyChar) <> 44 Then e.Handled = True
    End Sub

Conclusion :


je sais que c 'est simple, mais en considérant que je me suis fait c**** à trouver comment faire, je me dis que ca pourra en aider d'autres.

A voir également

Ajouter un commentaire

Commentaires

blq
Messages postés
97
Date d'inscription
vendredi 22 octobre 1999
Statut
Membre
Dernière intervention
13 juin 2016
1
Tester avec VB 2010. Simple et efficace. Merci !

Pour compléter et pour ceux souhaitant traiter plusieurs champs en même temps sans dupliquer le code, il suffit de faire ainsi (pour le premier exemple mais c'est pareil pour les autres test en exemple) :

Private Sub CheckDigit(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress If Char.IsDigit(e.KeyChar) False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled True
End Sub

Le label CheckDigit n'est pas la désignation d'un TextBox, mais un label de votre choix (vous pouvez mettre Toto :-)), c'est l'ajout des TextBox avec leur Event qui permet de regrouper en une seule fonction le traitement pour tous les TextBox ajoutés.
B Xeon Otman
Messages postés
6
Date d'inscription
samedi 7 juillet 2007
Statut
Membre
Dernière intervention
27 septembre 2009

Salut, je veux juste ajouter quelques chose sur la fonction "majuscules_KeyPress" :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim pos As Integer = TextBox1.SelectionStart
If Char.IsUpper(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then
e.Handled = True
If Char.IsLetter(e.KeyChar) Then
TextBox1.Text = TextBox1.Text.Insert(pos, e.KeyChar.ToString.ToUpper)
TextBox1.SelectionStart = pos + 1
End If
End If
End Sub
arapahoo
Messages postés
26
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
11 juillet 2008

Excellent et compact Merci 10
avelone
Messages postés
15
Date d'inscription
dimanche 5 août 2007
Statut
Membre
Dernière intervention
30 novembre 2010

Merci pour le code pour gérer que les chiffres et les virgules.

Très Bien

Merci

C'est excellent
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1
effectivement, e.KeyChar.IsLetter(e.KeyChar) est à remplacer par Char.IsLetter(e.KeyChar)
Le code date de 4 ans, j'apprenais la POO par tatonnement... ^^

Par contre pour ta "question taquine", effectivement, elle taquine... il faudrait penser à empecher le copier coller, qui peut tout faire exploser.
Je n'ai pas le temps de regarder tout de suite, mais on doit pouvoir ruser assez facilement.
Merci de tes remarques :)

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.