Discussion :

[Armorio]

Bonjour a tous , je cherche un moyen de faire en sorte que le texte de mon label soit toujours en majuscule même si le texte donner est en minuscule . Du genre

Code :

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

lbl.text = "bonjour"

et le label affiche "BONJOUR"

Et par la suite je voudrais savoir si il est possible de faire pareil mais avec la premier lettre du genre que le label est comme texte "Bonjour"

[Kreepz]

Bonjour,

Vas voir là

[_Ez3kiel]

Tu peux le coder dans l'event TextChanged, mais tu auras à le refaire pour chaque label ... Le mieux (je pense) ce serait de faire ton propre Label avec un mode d'affichage qui hériterait du Label Winforms.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Class TonLabel
    Inherits Label
 
 
 
    Public Enum modeFormatage
 
        MODE_DEFAULT = 0
        MODE_MAJUSCULE = 1
        MODE_PREMIERE_LETTRE_MAJUSCULE = 2
 
    End Enum
    Private _modeFormat As modeFormatage
    Public Property modeFormat As modeFormatage
        Get
            Return _modeFormat
        End Get
        Set(value As modeFormatage)
            _modeFormat = value
        End Set
    End Property
 
 
    Public Sub New()
        MyBase.New()
 
        modeFormat = modeFormatage.MODE_DEFAULT
    End Sub
 
 
    Private Function formaterText(Chaine As String) As String
 
        If Chaine <> String.Empty Then
            Select Case modeFormat
                Case modeFormatage.MODE_DEFAULT
                    'Rien à faire
                Case modeFormatage.MODE_MAJUSCULE
                    Chaine = Chaine.ToUpper()
                Case modeFormatage.MODE_PREMIERE_LETTRE_MAJUSCULE
                    Chaine = Chaine.Substring(0, 1).ToUpper & Chaine.Substring(1, Chaine.Length)
                Case Else
                    Throw New System.Exception("Non implémenté")
            End Select
        End If
 
        Return Chaine
 
    End Function
 
    Private Sub TonLabel_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged
 
        Me.Text = formaterText(Me.Text)
 
    End Sub
 
End Class

[Armorio]

je te remercie j'ai trouvais pour tous mettre en Majuscule mais je sais pas si c'est moi qui suis aveugle mais j'ai pas trouver pour juste la première lettre du label

[_Ez3kiel]

je te remercie j'ai trouvais pour tous mettre en Majuscule mais je sais pas si c'est moi qui suis aveugle mais j'ai pas trouver pour juste la première lettre du label

Code :

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

1
2
Chaine = Chaine.Substring(0, 1).ToUpper & Chaine.Substring(1, Chaine.Length) 'Que la première lettre de la chaîne en majuscule
Chaine = StrConv(Chaine, VbStrConv.ProperCase) 'Toutes les premières lettres des mots de la chaîne en majuscule

Bon code.