Label en majuscule

Version imprimable

02/06/2014, 10h19
Armorio

Label en majuscule

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:

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"
02/06/2014, 10h46
Kreepz

Bonjour,

Vas voir là ;)

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:

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

02/06/2014, 11h00
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

Citation:

Envoyé par 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
Code:

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.