Posez votre question Signaler

Mettre en gras une partie du texte d'un label [Résolu]

Messages postés
481
Date d'inscription
mardi 24 octobre 2000
Dernière intervention
16 mars 2019
 - - Dernière réponse : ManuAntibes
Messages postés
481
Date d'inscription
mardi 24 octobre 2000
Dernière intervention
16 mars 2019
 - 22 févr. 2019 à 09:09
VB.NET Posez votre question Signaler
Bonjour à tous,

Je voudrais mettre en gras, la deuxième ligne d'un label.

voici mon code. 

Dim LabelPlanning As New Label
        LabelPlanning.Font = New System.Drawing.Font("Microsoft Sans Serif", 10)
        LabelPlanning.Text = "Poste 1"
        LabelPlanning.Text += vbNewLine
        LabelPlanning.Text += "Pierre" 
        LabelPlanning.Dock = System.Windows.Forms.DockStyle.Fill
        LabelPlanning.TextAlign = HorizontalAlignment.Center
        LabelPlanning.BackColor = Color.AliceBlue
        Me.TableLayoutPanel1.Controls.Add(LabelPlanning, 2, 2)


je voudrais mettre en gras QUE la ligne du prénom.

Merci à vous
Afficher la suite 

Votre réponse

Répondre au sujet

2 réponses

Meilleure réponse
Signaler Commenter la réponse de Whismeril
Messages postés
12897
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2019
 350
1
Merci
Bonjour
https://bytes.com/topic/c-sharp/answers/269637-diffrent-fonts-one-label

En C#, que tu peux traduire avec l’un des nombreux convertisseurs en ligne.

D’autre part, pour tes prochaines questions, merci d’utiliser correctement les balises de codes, voir ici https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CodeS-SourceS

Codes Sources 107 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Whismeril
Signaler Commenter la réponse de ManuAntibes
Messages postés
481
Date d'inscription
mardi 24 octobre 2000
Dernière intervention
16 mars 2019
 3
0
Merci
Merci pour la reponse , je vais tester. 

Class RTFLabel
    Inherits System.Windows.Forms.RichTextBox

    Public Sub New()
        Me.BackColor = System.Drawing.SystemColors.InactiveBorder
        Me.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.[ReadOnly] = True
    End Sub

    Public Sub Append(ByVal text As String, ByVal f As Font)
        Dim length As Integer = text.Length
        Dim start As Integer = Me.Text.Length
        Me.AppendText(text)
        Me.[Select](start, length)
        Me.SelectionFont = f
        Me.[Select](0, 0)
    End Sub

    Public Sub Append(ByVal text As String, ByVal fs As FontStyle)
        Dim f As Font = New Font(Me.Font, fs)
        Me.Append(text, f)
    End Sub

    Public Sub AppendRegular(ByVal text As String)
        Me.Append(text, FontStyle.Regular)
    End Sub

    Public Sub AppendBold(ByVal text As String)
        Me.Append(text, FontStyle.Bold)
    End Sub

    Public Sub AppendItalic(ByVal text As String)
        Me.Append(text, FontStyle.Italic)
    End Sub

    Public Sub AppendUnderline(ByVal text As String)
        Me.Append(text, FontStyle.Underline)
    End Sub

    Public Sub AppendStrikeout(ByVal text As String)
        Me.Append(text, FontStyle.Strikeout)
    End Sub
End Class
Commenter la réponse de ManuAntibes

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.