Discussion :

[MedZero]

Bonjour je suis nouveau en VB.NET. Je cherche à savoir comment capitaliser le contenu d'un textbox ?

[DeWaRs]

Capitaliser ?!? : http://www.larousse.fr/dictionnaires...italiser/12905

[clementmarcotte]

Bonjour,

Bonjour je suis nouveau en VB.NET. Je cherche à savoir comment capitaliser le contenu d'un textbox ?

Sauf problème de mémoire cela devrait ressembler à cela:

Dim Texte as string
Texte = TextBox1.text.toupper

[MedZero]

Capitaliser ?!? : http://www.larousse.fr/dictionnaires...italiser/12905

Capitaliser une chaine de caracteres est de mettre la premiere lettre de celle-ci en majuscule..
A la saisie de mon textbox je voudrais mettre la premiere lettre de la chaine de caracteres qui le contient en majuscule.
Je sais compter sur vous

[gastoncs]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Text1_Change()
 Dim st As String
   st = Text1.Text
   Text1.Text = UCase(Mid(st, 1, 1)) & Mid$(st, 2, Len(st))
   Text1.SelStart = Len(st)
End Sub

[conan76]

Bonjour je suis nouveau en VB.NET. Je cherche à savoir comment capitaliser le contenu d'un textbox ?

bonjour MedZero,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
        Dim s As String = "test"
       dim resultat as string = Char.ToUpper(s(0)) & s.Substring(1)

On prend la première lettre que l'on met en majuscule : Char.ToUpper(s(0))
et l'on ajoute le reste

ceci peux être fait dans une fonction à qui l'on passera le texte et retourne le résultat.

[MedZero]

Bonjour,



Sauf problème de mémoire cela devrait ressembler à cela:

Dim Texte as string
Texte = TextBox1.text.toupper

Dans ce tout le contenu du textbox est mis en majuscule mon grand!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Text1_Change()
 Dim st As String
   st = Text1.Text
   Text1.Text = UCase(Mid(st, 1, 1)) & Mid$(st, 2, Len(st))
   Text1.SelStart = Len(st)
End Sub

Un peut d'explication svp...........

bonjour MedZero,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
        Dim s As String = "test"
       dim resultat as string = Char.ToUpper(s(0)) & s.Substring(1)

On prend la première lettre que l'on met en majuscule : Char.ToUpper(s(0))
et l'on ajoute le reste

ceci peux être fait dans une fonction à qui l'on passera le texte et retourne le résultat.

Maintenant comment pourrais je gérer ca avec les événements du textbox ,
car je voudrais que la première lettre du contenu du textbox se met en majuscule des qu'on la saisie?

[Jean-Philippe André]

salut,

sous VBA je sais qu'on a la possibilite d'utiliser par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox StrConv("AAA",vbProperCase)

Je crois que sous vb.net, c'est la meme

[shayw]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 
        If Char.IsUpper(e.KeyChar) AndAlso DirectCast(sender, TextBox).Text.Length > 0 Then
            e.KeyChar = Char.ToLower(e.KeyChar)
        ElseIf DirectCast(sender, TextBox).Text.Length = 0 Then
            e.KeyChar = Char.ToUpper(e.KeyChar)
        End If
    End Sub

[MedZero]

Bonjour !

j'ai trouvé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Private Sub Textbox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Textbox1.LostFocus
                   If Textbox1 .Text <> "" Then      
                            Dim chaine As String
                            chaine = Textbox1.Text
                            Textbox1.Text = CStr(chaine(0)).ToUpper + chaine.Substring(1)
                   end if
 End Sub

je vous remercie infiniment de m'avoir aider.....
Une fois encore de plus merci.