centrer un text avec FormBorderStyle.None

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'arrive pas centrer le texte de mon form1 avec FormBorderStyle.None

voici en image :
Pièce jointe 482064

le code:

Code:

1
2
3
4
5
6
7
e.Graphics.FillRectangle(New SolidBrush(Color.LightSkyBlue), 0, 0, Me.ClientRectangle.Width, 34)
        Dim fnt As New Font("Times New Roman", 14, FontStyle.Bold)
        Dim sf As New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}
        e.Graphics.DrawString("Mon Texte", fnt, Brushes.Black, Me.ClientRectangle, sf)
        e.Graphics.DrawImage(flagbmp, 0, 0)
        fnt.Dispose()
        sf.Dispose()

Pouvez-vous m'aider à centrer Mon texte dans Fillrectangle?
Merci de votre réponse.

09/06/2019, 15h38
baloub

Bonjour,

deux solutions (il y en a sans doutes, d'autres)

1) remplacer:

Code:

Dim sf As New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}

par:

Code:

Dim sf As New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near}

(c'est peut être "Far" à la place de "Near", je ne sais jamais qui fait quoi..)

2)Modifier le Rectangle délimiteur avec 0,0 pour coordonnées, largeur de la form pour la largeur, hauteur de la zone bleue comme hauteur.

Bonjour,

je viens trouver la solution a mon problème.Merci de ta réponse baloub.

Code:

1
2
3
4
5
6
7
8
9
10
Dim rect As Rectangle = New Rectangle(0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height)
        e.Graphics.FillRectangle(New SolidBrush(Color.Navy), 0, 0, Me.ClientRectangle.Width, 34)
        e.Graphics.DrawRectangle(New Pen(Brushes.Black, 2), rect)
        Dim fnt As New Font("Times New Roman", 14, FontStyle.Bold)
        Dim sf As New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}
        Dim textRect As Rectangle = New Rectangle(0, 0, Me.ClientRectangle.Width, 34)
        e.Graphics.DrawString("- Download File", fnt, Brushes.White, textRect, sf)
        e.Graphics.DrawImage(flagbmp, 215, 0)
        fnt.Dispose()
        sf.Dispose()