Discussion :

[Miska59]

Bonjour,

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

voici en image :


le code:

Code :

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

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.

[baloub]

Bonjour,

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

1) remplacer:

Code :

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

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

par:

Code :

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

 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.

[Miska59]

Bonjour,

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

Code :

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

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()