Cannot get label to center text when painted

Question

0.00/5 (No votes)

See more:

VS2010

Hi guys ...

I have a label control on a form that gets different sized words in it.

I just want to get the text to be middle center all the time.

I set the control label1 itself to middle center in the textalign property of the control.

I also tried programatically if it is the proper command I am not a hundred percent sure.

my prob is that it always paints left alligned.

the code is below

Thanks

What I have tried:

Private Sub label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles label1.Paint
label1.BringToFront()
label1.Text = label1.Text
e.Graphics.DrawString(label1.Text, label1.Font, Brushes.Yellow, RectangleF.op_Implicit(label1.ClientRectangle))
label1.TextAlign = ContentAlignment.MiddleCenter
End Sub

Posted 29-Feb-16 6:39am

tgebrael

Updated 3-Mar-16 21:58pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

FatzBomb · Answer 1 · 2016-03-03T21:58:00

Hello,

You cannot use ContentAlignment with DrawString, you need to create a StringFormat object and then apply the operation like so:

VB

Private Sub label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles label1.Paint

    Using sFormat As New StringFormat
        sFormat.Alignment = StringAlignment.Center
        sFormat.LineAlignment = StringAlignment.Center
        e.Graphics.DrawString(label1.Text, label1.Font, Brushes.Yellow, label1.ClientRectangle, sFormat)
    End Using

End Sub

I hope this helps,
Keith

NOTE: I created this extension to allow conversion from the ContentAlignment object.

VB

''' <summary>
''' Converts current ContentAlignment to a new StringFormat using StringFormat.GenericDefault
''' </summary>
''' <returns>New StringFormat.GenricDefault with current alignment settings</returns>
<Extension()>
Public Function ToStringFormat(ByRef cAlignment As ContentAlignment) As StringFormat
    Dim rFormat As New StringFormat(StringFormat.GenericDefault)
    With rFormat
        Select Case cAlignment
            Case ContentAlignment.TopLeft, ContentAlignment.TopCenter, ContentAlignment.TopRight
                .LineAlignment = StringAlignment.Near
            Case ContentAlignment.BottomLeft, ContentAlignment.BottomCenter, ContentAlignment.BottomRight
                .LineAlignment = StringAlignment.Far
            Case Else
                .LineAlignment = StringAlignment.Center
        End Select

        Select Case cAlignment
            Case ContentAlignment.TopLeft, ContentAlignment.MiddleLeft, ContentAlignment.BottomLeft
                .Alignment = StringAlignment.Near
            Case ContentAlignment.TopRight, ContentAlignment.MiddleRight, ContentAlignment.BottomRight
                .Alignment = StringAlignment.Far
            Case Else
                .Alignment = StringAlignment.Center
        End Select
    End With
    Return rFormat
End Function

With it you could just call:

VB

Dim MyAlignment as ContentAlignment = ContentAlignment.MiddleCenter
e.Graphics.DrawString(label1.Text, label1.Font, Brushes.Yellow, label1.ClientRectangle, MyAlignment.ToStringFormat)