la 1 ére lettre d'un textbox Résolu

Question

Bonjour à tous,

j'aimerai mettre la première lettre d'un textbox en majuscule (juste la 1ère lettre même si le textbox est constitué de plusieurs mots, seule la 1ère lettre du 1er mot doit être en majuscule). Malheureusement la fonction StrConv ne me convient pas car elle met la 1ère lettre de chaque mot en majuscule.

Merci d'avance pour votre aide.

Cordialement.

mdevaux62 · Accepted Answer

Bonjour,

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        MajusculeAuDebut(sender)
    End Sub

    Private Sub MajusculeAuDebut(ByVal monTextBox As TextBox)
        With monTextBox
            'Mémoriser la portion sélectionnée dans le Textbox
            Dim selectionDebut As Integer = .SelectionStart
            Dim selectionLongueur As Integer = .SelectionLength
            'Mettre la première lettre en majuscule et les autres (s'il y en a d'autres) en minuscule
            If .Text.Length = 1 Then
                .Text = .Text.Substring(0, 1).ToUpper
            ElseIf .Text.Length > 1 Then
                .Text = .Text.Substring(0, 1).ToUpper & .Text.Substring(1).ToLower
            End If
            .SelectionStart = selectionDebut
            .SelectionLength = selectionLongueur
        End With
    End Sub

cs_Jack · Answer

Salut

Je dirai
TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & _
                TextBox1.Text.Substring(1).ToString

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Ania5 · Answer

salut
ça marche pas .j'ai essayé avec ce code:
 TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & _
                TextBox1.Text.Substring(2, Len(TextBox1.Text)).ToString
même message d'erreur

ucfoutu · Answer

Bonjour, pourquoi ton indicer 2 ?
Devrait logiquement être :
Char.ToUpper(TextBox1.Text.Chars(0)) + TextBox1.Text.Substring(1, TextBox1.Text.Length - 1)
Selon ce que comprends et déduis  en lisant MSDN (je n'ai pas VB.Net et ne suis pas VB.Netiste !)
Me trompe-je ? 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Ania5 · Answer

il a affiché l'erreur : "L'index se trouve en dehors des limites du tableau."
je sais pas quel index?

cs_ShayW · Answer

Salut
si Jack te donne la bonne réponse
 TextBox1.Text = (TextBox1.Text.Substring(0, 1).ToUpper) & TextBox1.Text.Substring(1)

avec ton code non 
TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & _ 
TextBox1.Text.Substring(2, Len(TextBox1.Text)).ToString 

TextBox1.Text.Substring(2, Len(TextBox1.Text)).ToString 

tu essayes de creer un substring à partir du
3 ieme caractère (index commence par 0  et de longueur du string mais 
comme il manque déja 3 caractères donc la
l'erreur 
et en plus len(textbox1.text) ce n'est pas du 
net

ucfoutu · Answer

il a affiché l'erreur : "L'index se trouve en dehors des limites du tableau."
je sais pas quel index?

Gère l'erreur ! (si TextBox1.Text ne contient qu'un caractère, tu ne peux te référer à ce qui suit ce seul caractère ! )

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Ania5 · Answer

ça marche pas la méthode : TextBox1.Text = (TextBox1.Text.Substring(0, 1).ToUpper) & TextBox1.Text.Substring(1)
j'ai essayé par:
TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & _
TextBox1.Text.Substring(1, ((TextBox1.Text.Length))).ToString

cs_ShayW · Answer

TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & TextBox1.Text.Substring(1, ((TextBox1.Text.Length) - 1)).ToString

textbox1.text.substring(1) équivalent à 
TextBox1.Text.Substring(1,((TextBox1.Text.Length) - 1))

Ania5 · Answer

Les deux méthodes ça marche pas.
Merci

ucfoutu · Answer

Relire "à tout hasard" mon message précédent 
Si moins de deux caractères au moment du test ===>> erreur à gérer (me semble-t-il) !
Non ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Ania5 · Answer

oui vous pouvez me dire dans quel Événement ça va marcher ce code : 
 TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() & _
                      TextBox1.Text.Substring(1).ToString

ucfoutu · Answer

Surtout pas dans l'évènement Change (car là, bien évidemment, le premier caractère frappé sera l'unique à ce moment-là ! ===>> l'erreur dont je ne cesse de te parler )
Mais tout cela me parait tellement évident que ta question me lisse très perplexe sur ce que tu fais ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

ou alors (mais également vrai dans tous les cas) : ne lance cette instruction que si plus d'un caractère (simple expression conditionnelle). Tu me laisses vraiment baba, là !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Orlean2 · Answer

Bonjour
essai sa 
Private Sub Text1_Change()
 c$ = UCase(Mid(Text1, 1, 1))
 Text1 = c$ & Mid(Text1, 2)
 Text1.SelStart = Len(Text1)
End Sub

ucfoutu · Answer

Aujourd'hui, apparemment, Orlean2 ne cesse (en peu de temps) de traiter les sujets VB.Net avec du code VB6 ! 
Tu es bien gentil, Orlean2. Et j'apprécie beaucoup ton "amour" (largement justifié à mes yeux) pour le code VB6 .
Mais quand même !!!!!!


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Où en est on ?

cs_ShayW · Answer

Bonsoir Ania
oui vous pouvez me dire dans quel Événement ça va marcher ce code : 

si tu poses une telle question tu ne dois pas
comprendre ce que dois faire  ton programme

Ania5 · Answer

Merci beaucoup mdevaux62

Ania5 · Answer

mdevaux62 : C'est exactement ça ! Un grand merci encore

Ania5 · Answer

mdevaux62 :

cs_ShayW · Answer

Bonjour Ania5

peux tu me dire pourquoi le code de
mdevaux62 te convient
et les autres propositions non

Ania5 · Answer

Bonjour ShayW 
Pour les autres propositions je peux pas au même temps écrire dans le textbox et il s'affiche la première lettre en majuscule et les autres (s'il y a bien sur) en minuscule et si le textbox est vide il affiche un bug.Par contre le code de  mdevaux62 il me convient.

ucfoutu · Answer

Et pourtant !....
obliger ainsi à passer sous les fourches caudines d'une fonction à chaque fois que change la saisie (et donc deux fois, en plus, lorsque on modifie la première lettre) est tout, sauf le plus adroit. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

mdevaux62 · Answer

C'est vrai que l'évènement Change du Textbox est appelé 2 fois mais bon, à défaut d'être "adroit", ça marche à tous les coups et ça reste transparent pour l'utilisateur.

Des cycles "bouffés pour rien", certes, mais ce genre de code n'intervient pas, je pense, dans le cadre de la conception d'un programme où la vitesse est promordiale tel qu'un jeu d'action par exemple.

Bonne journée à tous.

ucfoutu · Answer

A mdevaux62
Si tu veux vraiment gérer pendant la saisie plutôt qu'à la sortie, gère alors avec le KeyPress 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

mdevaux62 · Answer

Possible aussi.

Voir ensuite si le nombre de conditions à vérifier n'alourdira pas davantage le code et sa rapidité.
Car il se suffit pas de mettre la première lettre en majuscule, il faut aussi mettre les autres en minuscules,traiter la suppression d'une lettre ou d'une partie du mot au début, traiter le copier/coller, etc.
C'est je pense, mais ce n'est pas que mon avis, bien cher payer une simplicité qui n'a pour principal grief que de s'auto-appeler.

ucfoutu · Answer

Bref ...
Une chose est certaine : la meilleure manière de procéder (et la moins chère et la moins lente) est (dit ici une fois de plus. On commence à en prendre l'habitude) de laisser l'utilisateur saisir et d'intervenir à la sortie de la textbox.
Ce n'est pas Renfield qui me démentira (salut à toi, Renfield) 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Polack77 · Answer

Tiens mais pourquoi je suis ici moi ? Ce n'est pas le sujet sur le quel je voulais aller 
Enfin bon, j'ai lut et donc je répond.

Oulalalala ATTENTION AVEC CE GENRE DE CODE :
.SelectionStart = selectionDebut
.SelectionLength = selectionLongueur 
Car en cas de sélection faite de droite à gauche ta sélection est "retourné" (soit passe de droite à gauche à de gauche à droite, je pense que je ne suis pas claire. J'ai du mal à me faire comprendre sur ce point a chaque fois )
Un problème qui vas bientôt nous donner un ulcère à ucfoutu et à moi (coucou ucfoutu ).

Enfin bref fait plutôt ça :
Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBoxFTFBnLigneIgnorFin.Validated
        MajusculeAuDebut(sender)
    End Sub

    Private Sub MajusculeAuDebut(ByVal monTextBox As TextBox)
        With monTextBox
            If .Text.Length = 1 Then
                .Text = .Text.Substring(0, 1).ToUpper
            ElseIf .Text.Length > 1 Then
                .Text =  .Text.Substring(0, 1).ToUpper & .Text 'Pourquoi ".Text.Substring(1).ToLower" ? il faut aussi supprimer les éventuelles majuscules des autres lettres ???
            End If
        End With
    End Sub
 Oui c'est moins jolie  car ce n'est fait qu'au moment de quitter le textebox mais tu vas éviter BEAUCOUP de prise de tête sur ce problème de sélection 
Même qui si c'est vrais que vue que tu bosse sur le textchange (et non le "SelectionChanged") ce problème est moindre.
Enfin tout ça pour dire : méfiance sur les modifications de "SelectionStart" et "SelectionLength" 

Amicalement
1000 recherches sur Google  = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo

Polack77 · Answer

Oups un petit oublie dans le code, version corrigée :
Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBoxFTFBnLigneIgnorFin.Validated
        MajusculeAuDebut(sender)
    End Sub

    Private Sub MajusculeAuDebut(ByVal monTextBox As TextBox)
        With monTextBox
            If .Text.Length = 1 Then
                .Text = .Text.Substring(0, 1).ToUpper
            ElseIf .Text.Length > 1 Then
                .Text = .Text.Substring(0, 1).ToUpper & .Text.Substring(1) 'Pourquoi ".ToLower" ? il faut aussi supprimer les éventuelles majuscules des autres lettres ???
            End If
        End With
    End Sub


Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo

mdevaux62 · Answer

Je ne vois pas en quoi mon code ne marche pas (j'ai testé dans tous les sens) mais bon je ne vais pas non plus polémiquer ad vitam eternam...

Ania5 · Answer

Bonjour mdevaux62,
Ton code ça marche bien pour moi aussi .Merci

mdevaux62 · Answer

Oups ! Oublié... 
Après c'est sûr je ne dis plus rien.

Polack77 tu indiques en commentaire :
'Pourquoi ".Text.Substring(1).ToLower" ? il faut aussi supprimer les éventuelles majuscules des autres lettres ???

Ma réponse :
Ben oui ! Si je colle (CTRL+V) au milieu du texte l'expression "NOM DE DIOU", en majuscules donc, il faudra bien remettre cette portion en minuscules non ?

ucfoutu · Answer

Pas nécessairement, mdevaux62 !
Tu extrapoles là la demande faite. Il n'y est nulle part dit que les majuscules déjà éventuellement présentes doivent passer en minuscules. Il y est seulement dit (un peu maladroitement, certes) qu'il convient d'agir (passer en majuscule) sur la seule première lettre.

Et les cas où deux (ou plus) majuscules peuvent être nécessaires sont nombreux, notamment dans les Patronymes, dont ma 1ère lettre est forcément majuscule, sans que pour autant ce soit nécessairement la seule majuscule dans le patronyme. 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

mdevaux62 · Answer

Mmmm!
Postulat du départ :

"...j'aimerais mettre la première lettre d'un textbox en majuscule (juste la 1ère lettre même si le textbox est constitué de plusieurs mots, seule la 1ère lettre du 1er mot doit être en majuscule)..."

ucfoutu · Answer

J'ai plus haut fait allusion à la maladresse fréquente dans l'expression de "postulats" .

Et à ce propos : si toi, tu as vraiment pris à la lettre (et sans jeu de mots ) l'expression de ce "postulat" ===>> ton code est faux ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

mdevaux62 · Answer

Ah bon ?

Ania5 · Answer

non c'est pas vrai mdevaux62 ton code est ce que j'ai besoin

acive · Answer

Salut,

Je ne voulais pas me prononcer sur cette question, mais...

Juste une opinion:
Je trouve que le restant du texte devrait rester tel que l'utilisateur l'a écrit, puisque nous ne savons pas s'il a tapé des noms ou encore un exemple le mot "homme", qui veut dire un homme, ou "Homme" qui veut dire l'humanité

Exemple: "Bonjour, Ania va terminer cette discussion"
Le A doit rester en majuscules non?

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Ania5 · Answer

oui acive ça peut convient dans les textbox qui contient des blabla comme les descriptions et pour le code de mdevaux62 peut marcher avec les textbox concernant le nom et le prénom d'un utilisateur.

acive · Answer

Exactement,
C'est à toi de voir, si par exemple tu sais que dans un textbox il doit inscrire le nom/prénom, dans ce cas tu fais ce que tu disais:
la fonction StrConv ne me convient pas car elle met la 1ère lettre de chaque mot en majuscule. 


Si tu sais qu'il y a du bla bla tu mets uniquement la première en majuscule.

Et si tu es sure que la phrase ne contient pas de noms, tu mats la première en Maj et toutes les autres en minuscules.

T'as le choix...

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Ania5 · Answer

oui acive merci :)

ucfoutu · Answer

A mdevaux62, qui dit "ah bon" sans réfléchir suffisamment :
tu dis vouloir "coller" littéralement à ce "postulat" ?

"...j'aimerais mettre la première lettre d'un textbox en majuscule (juste la 1ère lettre même si le textbox est constitué de plusieurs mots, seule la 1ère lettre du 1er mot doit être en majuscule)..."
Il se trouve que ton code ne traite pas la première lettre, mais le premier caractère (lettre ou autre) 

A ania5, maintenant, qui dit :

et pour le code de mdevaux62 peut marcher avec les textbox concernant le nom et le prénom d'un utilisateur.
Pas vrai ! que fais-tu, par exemple et entre autres (une "flopée" d'autres) du Patronyme "MacArthur", hein ? 

Bref ...
Je vous abandonne là, dans cette discussion à la noix de coco.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Ania5 · Answer

A ucfoutu moi je veux que l'utilisateur écrit dans le textbox concernant la nom ou bien le prénom "Macarthur" et non pas "MacArthur".

mdevaux62 · Answer

A ucfoutu :

J'ai proposé une solution. 

Je ne prétends pas qu'elle réponde à toutes les entrées possibles (on pourrait filtrer les caractères en entrée à partir d'une matrice par exemple, refuser un premier caractère qui ne soit pas une lettre, etc.).

De là à dire de façon arbitraire qu'elle ne convient pas et qu'elle ne correspond pas à la demande initialement formulée, je trouve ça un chouille gonflé et un tantinet de mauvaise foi. Mais bon...

cs_ShayW · Answer

Bonjour
Jean Jacques Rousseau 
John Fitzgerald Kennedy et les tous les
autres vont etre outragés

ucfoutu · Answer

Il se trouve que Macarthur n'est pas un patronyme et quid de Mc Arthur ? ====<< tu en fais un Mc arthur, c'est à dire le patronyme "Mc" avec un prénom "arthur" ? et quid des patronymes "de Ligonnès", Dumont d'Urville" (mais ... Du Guesclin", "Kosciusko-Morizet", etc... ===>> tu les estropie tous ? Sans compter que le "de" n'est pas toujours nobiliaire et que sa première lettre est alors en majuscule (en minuscule dans le cas contraire). Allez ! Bye (en espérant que tu ne traiteras jamais ainsi d'actes de l'état civil ou même notariés ) ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

La 1 ére lettre d'un textbox

47 réponses

Votre réponse

Discussions similaires