Comment définir les attributs de la propriété Texte d'un contrôle

Bonjour à tous

Grace à vous, je sais comment définir la taille de la police de la propriéré "Text" d'un contrôle.
Code:

1 2 MonContrôle.Font = New Font(MonContrôle.Font.FontFamily, LaTaille)
Le problème qui reste est que les attributs de la police sont perdus et que j'aimerais bien les définir dans la foulée (Bold, Italic etc..)

Quelqu'un a-t-il une solution à me proposer ?

Merci de votre réponse

Claude Azoulai

Bonjour,
Vous avez d'autres constructeurs pour Font
Sur le msdn vous trouverez celui qui vous convient

Merci à dkmix

Si l'instruction suivante :

Code:

MonContrôle.Font = New Font(MonContrôle.Font.FontFamily, LaTaille,FontStyle.Bold)

fonctionne bien, je n'arrive pas à récupérer le FontStyle de MonContrôle.
Et ce n'est pas faute d'avoir essayé plusieurs types d'instruction.

Si tu as une idée, elle est la bienvenue

Claude Azoulai

Et ceci ?

Code:

MonContrôle.Font = New Font(MonContrôle.Font.FontFamily, LaTaille,MonContrôle.Font.Style )

Bonjour Claude_Azoulai

Je vous délivre un certain nombre de tests effectués sur un contrôle

Citation:

Lab As Label

afin que vous puissiez vous retrouver dans le salmigondis que constitue le traitement des fontes dans vb.net.
Le test 1 montre que l'on peut très bien créer une fonte puis l'attribuer ensuite à un contrôle, ou d'ailleurs à tout objet possédant une propriété de type Font, par exemple un objet de classe Bitmap.

Code:

1
2
3
4
    Private Sub Tester01()
        Dim Fnt As New Font("Times New Roman", 10, FontStyle.Italic)
        Lab.Font = Fnt
    End Sub

Mais bien sûr, il est préférable dans le cas d'un contrôle de procéder directement comme le montre le test 2.

Code:

1
2
3
    Private Sub Tester02()
        Lab.Font = New Font("Times New Roman", 10, FontStyle.Italic)
    End Sub

Cette syntaxe laisse supposer que le premier argument est un String, alors qu'en réalité c'est un objet de classe System.Drawing.FontFamily. Le deuxième argument, sans surprise, est un Integer. Quant au troisème, il faut savoir que FontStyle n'est pas une classe, mais une énumération.
Le test 3 montre comment retrouver les attributs d'une fonte. Attention, ils sont tous "ReadOnly". Noter que pour afficher le nom de fonte, j'ai dû la convertir en String avant de l'envoyer dans un MsgBox. Tous les attributs de style (Bold, Italic, Underline, Strikeout) sont des Boolean.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Tester03()
        Dim Fnt As Font, Nom As String, Tle As Integer, Grs As Boolean, Itl As Boolean, Slg As Boolean, Bar As Boolean
        Lab.Font = New Font("Times New Roman", 10, FontStyle.Italic)
        Fnt = Lab.Font
        With Fnt
            Nom = .FontFamily.ToString : MsgBox(Nom)
            Tle = .Size : MsgBox("Taille = " & Tle.ToString)
            Grs = .Bold : MsgBox("Gras = " & Grs.ToString)
            Itl = .Italic : MsgBox("Italique = " & Itl.ToString)
            Slg = .Underline : MsgBox("Souligné = " & Slg.ToString)
            Bar = .Strikeout : MsgBox("Barré = " & Bar.ToString)
        End With
    End Sub

Le test 4 montre comment on peut dans le troisième argument combiner les attributs de style.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Tester04()
        Dim Fnt As Font, Nom As String, Tle As Integer, Grs As Boolean, Itl As Boolean, Slg As Boolean, Bar As Boolean
        Lab.Font = New Font("Times New Roman", 10, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout)
        Fnt = Lab.Font
        With Fnt
            Nom = .FontFamily.ToString : MsgBox(Nom)
            Tle = .Size : MsgBox("Taille = " & Tle.ToString)
            Grs = .Bold : MsgBox("Gras = " & Grs.ToString)
            Itl = .Italic : MsgBox("Italique = " & Itl.ToString)
            Slg = .Underline : MsgBox("Souligné = " & Slg.ToString)
            Bar = .Strikeout : MsgBox("Barré = " & Bar.ToString)
        End With
    End Sub

Mais, me direz-vous, pourquoi combiner par des opérateurs Or, alors que l'on pourrait s'attendre à des And. Je vous répondrai alors que cela est une autre histoire, que je vous conterai si vraiment vous insistez.
Le test 5 met en jeu un attribut de style Regular

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Tester05()
        Dim Fnt As Font, Nom As String, Tle As Integer, Grs As Boolean, Itl As Boolean, Slg As Boolean, Bar As Boolean
        Lab.Font = New Font("Times New Roman", 10, FontStyle.Regular)
        Fnt = Lab.Font
        With Fnt
            Nom = .FontFamily.ToString : MsgBox(Nom)
            Tle = .Size : MsgBox("Taille = " & Tle.ToString)
            Grs = .Bold : MsgBox("Gras = " & Grs.ToString)
            Itl = .Italic : MsgBox("Italique = " & Itl.ToString)
            Slg = .Underline : MsgBox("Souligné = " & Slg.ToString)
            Bar = .Strikeout : MsgBox("Barré = " & Bar.ToString)
        End With
    End Sub

totalement inutile comme le montre le test 6.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Tester06()
        Dim Fnt As Font, Nom As String, Tle As Integer, Grs As Boolean, Itl As Boolean, Slg As Boolean, Bar As Boolean
        Lab.Font = New Font("Times New Roman", 10)
        Fnt = Lab.Font
        With Fnt
            Nom = .FontFamily.ToString : MsgBox(Nom)
            Tle = .Size : MsgBox("Taille = " & Tle.ToString)
            Grs = .Bold : MsgBox("Gras = " & Grs.ToString)
            Itl = .Italic : MsgBox("Italique = " & Itl.ToString)
            Slg = .Underline : MsgBox("Souligné = " & Slg.ToString)
            Bar = .Strikeout : MsgBox("Barré = " & Bar.ToString)
        End With
    End Sub

Cordiales salutations.

Merci à vous deux

Quand je suis revenu sur le site, j'avais trouvé par tatonnement
"MonContrôle.Font.Style", alors que j'avais essayé "MonContrôle.FontStyle" qui me paraissait coulant de source.

Les différents exemples fournis vont m'être très utiles et j'en remercie l'auteur.

Bravo pour votre collaboration

Claude Azoulai