Autoriser seulement les majuscules dans une textboxRésolu

Question

Bonjour,
je voudrais n'autoriser que les majuscules lors de l'écriture de ma textbox.
J'ai réussi mais le soucis c'est que lorsque j'écris, l'écriture est marquée à l'envers. Exemple si j'écris "abc", le contenu de ma textbox va se transformer en "CBA".
TextBoxClé.Text = TextBoxClé.Text.ToUpper
Le problème vient du fait que je converti le contenu de ma textbox1 et que j'assigne ce nouveau contenu à ma texbox1 car quand je converti le contenu de ma texbox2 et que l'affiche à la textbox1 ça marche parfaitement.
Merci de votre aide !

Utilisateur anonyme · Accepted Answer

Tiens, je viens de tomber sur une propriété particulière des TextBox qui pourra peut-être t'être utile dynamiquement :
textbox1.CharacterCasing = CharacterCasing.Upper
Ou à déterminer à la création dans la fenêtre des propriétés du composant.

NHenry · Answer

Bonjour, 

1) on évite les accents et caractères spéciaux dans les noms de contrôle/form/module/variable, cela cause parfois des soucis imprévus et limite l'internationalisation du code.
2) je ne vois pas pourquoi le texte s'inverse, tu ne nous montre pas tout le code, je pense
3) tu peux controler la saisie en cours avec l'event Change et KeyPress du contrôle.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---

Utilisateur anonyme · Answer

Bonjour,

Regarde la propriété RightToLeft de ton Textbox. Elle doit être à No

ucfoutu · Answer

Bonjour,
lors de l'écriture de ma textbox. 
donc en cours même de saisie. 
Avec quel code et dans quel évènement ?

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Salut à tous !

@NHenry
Merci du conseil concernant les caractères spéciaux, j'en prends note pour la prochaine fois.
Voici mon code entier :
    Private Sub TextBoxClé_TextChanged(sender As Object, e As EventArgs) Handles TextBoxClé.TextChanged
        TextBoxClé.Text = TextBoxClé.Text.ToUpper
    End Sub

@cmarcotte
J'ai regardé la propriété, je l'ai mise à "Yes" mais c'est encore plus déstabilisant car le problème persiste mais en plus cette fois ci le code part de la droite.

@ucfoutu
Oui en cours même de saisie grâce à l&#8217;évènement TextChanged.

ucfoutu · Answer

Regarde la propriété RightToLeft de ton Textbox. Elle doit être à No

@cmarcotte
J'ai regardé la propriété, je l'ai mise à "Yes" mais c'est encore plus déstabilisant
Sans commentaires. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Bonjour, 

Dans ce cas, le meilleur moyen pour suivre les 'opérations' c'est de placer des points d'arrêts (F9) et de faire avancer le code en pas à pas (F8) et d'observer quelles lignes sont exécutées et surtout quels événements sont exécutés et dans quel ordre. Promener la souris sur les variables pour observer les valeurs.

Utilisateur anonyme · Answer

Bonjour,
il se passe un phénomène très bizarre, lorsque j'exécute le programme en pas à pas, le problème n&#8217;apparaît pas ! La preuve en vidéo.
https://dl.dropbox.com/u/79764502/TextBox/TextBox.wmv

Utilisateur anonyme · Answer

Oh merci ! ça marche !

Utilisateur anonyme · Answer

Par contre j'ai juste une petite dernière question, dans ma textbox il faut absolument bloquer tous les caractères ( même les lettres accentuées ) sauf les lettres.
J'ai réussi à bloquer tous les caractères ( sauf les lettres accentuées )grâce au code suivant :

    Private Sub TextBoxClé_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxClé.KeyPress
        If Char.IsDigit(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsControl(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsHighSurrogate(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsPunctuation(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsSeparator(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsSymbol(e.KeyChar) = True Then
            e.Handled = True
        End If

        If Char.IsWhiteSpace(e.KeyChar) = True Then
            e.Handled = True
        End If
    End Sub

Dois-je utiliser le code UTF-8 pour les bloquer ?
Merci.

Utilisateur anonyme · Answer

Observe la table ASCII et déduis-en les caractères à éviter dans l'événement KeyUp (grâce à l'argument e et sa propriété KeyCode) de ton textbox.

Utilisateur anonyme · Answer

Rectificatif: Grâce à la propriété KeyValue qui renvoie un Integer donc.

Utilisateur anonyme · Answer

Salut banana32
Merci pour la piste du KeyValue, cela fonctionne parfaitement, j'ai donc résolu mon problème, ma textbox écrit tout le temps en majuscule, et tous les caractères sont bloqués même les lettres avec accent, je laisse le code pour les personnes qui viendront ici et sont intéressés.
PS : Il ne faut pas utiliser les valeur ASCII mais les valeurs clavier, pour le récupérer j'ai fais un petit code que j'ai mis en note.
PS2: Etant donné que toutes les valeurs du clavier sauf les lettres, sont bloquées, la touche retour ne marche pas, j'ai donc mit un textbox clear à la place car je n'ai pas réussi à faire le code pour supprimer que le dernier caractère. D'ailleurs, si tu as la solution banana32 je suis preneur ;)

    Private Sub TextBoxClé_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxClé.KeyPress
        '######## Optimisation du code, au lieu de mettre si caractère controle ... on bloque, on met si le caractère n'est pas une lettre, on bloque #####
        If Char.IsLetter(e.KeyChar) = False Then
            e.Handled = True
        End If

    End Sub

    Private Sub TextBoxClé_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBoxClé.KeyUp

        '############ RECUPERER LA VALEUR CLAVIER DU CARACTERE TAPPE ##########
        'Dim Valeur As Integer = e.KeyValue
        'MsgBox(Valeur)
        '#######################################################################


        If e.KeyValue = 50 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 220 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 192 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 221 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 55 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 57 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 48 Then
            TextBoxClé.Clear()
            MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation)
        End If

        If e.KeyValue = 8 Then
            TextBoxClé.Clear()
        End If

    End Sub

    Private Sub TextBoxClé_TextChanged(sender As Object, e As EventArgs) Handles TextBoxClé.TextChanged
        '######### Toutes les lettres tappées seront transformées en majuscule #########
        TextBoxClé.CharacterCasing = CharacterCasing.Upper
    End Sub

Utilisateur anonyme · Answer

Un select case aurait été plus judicieux :

select case e.keyvalue
    case 50,220,92,48 'etc..
       MessageBox.Show("blabla")    (MsgBox obsolète)
       e.suppresskeypress = true
    case Else
       'code pour le reste des touches
  end select

Utilisateur anonyme · Answer

Ok j'ai pris ta solution. Sujet résolu !

Autoriser seulement les majuscules dans une textbox

15 réponses

Votre réponse

Discussions similaires