Rotating Text in a Label Control

[jcrouse]

I want to rotate it 180 degree so it is upside down. What is the easiest way to accomplish this?

Thank you
John

[Ken Tucker [MVP]]

Hi,

Private Sub Label1_Paint(By Val sender As Object, ByVal e As
System.Windows. Forms.PaintEven tArgs) Handles Label1.Paint
Label1.Text = ""
e.Graphics.Tran slateTransform( Label1.ClientSi ze.Width,
Label1.ClientSi ze.Height)
e.Graphics.Rota teTransform(180 )
e.Graphics.Draw String("upside down string", Label1.Font,
Brushes.Black, RectangleF.op_I mplicit(Label1. ClientRectangle ))
End Sub

Ken
------------------
"jcrouse" <an*******@disc ussions.microso ft.com> wrote in message
news:CE******** *************** ***********@mic rosoft.com...

I want to rotate it 180 degree so it is upside down. What is the easiest
way to accomplish this?

Thank you,
John

[jcrouse]

Ken
Worked AWESOME, as you know. I am also trying to "middle.cen ter" the text in the box. I've tried about ten different ways. What code do I need to add and where does it need to go

Thanks for your help
John

[Ken Tucker [MVP]]

Hi,

Use a string format

Private Sub Label1_Paint(By Val sender As Object, ByVal e As
System.Windows. Forms.PaintEven tArgs) Handles Label1.Paint
Dim sf As New StringFormat
sf.Alignment = StringAlignment .Center
sf.LineAlignmen t = StringAlignment .Center
Label1.Text = ""
e.Graphics.Tran slateTransform( Label1.ClientSi ze.Width,
Label1.ClientSi ze.Height)
e.Graphics.Rota teTransform(180 )
e.Graphics.Draw String("upside down string", Label1.Font,
Brushes.Black, RectangleF.op_I mplicit(Label1. ClientRectangle ), sf)
End Sub
Ken
------------------------
"jcrouse" <an*******@disc ussions.microso ft.com> wrote in message
news:F5******** *************** ***********@mic rosoft.com...

Ken,
Worked AWESOME, as you know. I am also trying to "middle.cen ter" the
text in the box. I've tried about ten different ways. What code do I need
to add and where does it need to go?

Thanks for your help,
John

[jcrouse]

Ken...One more question about this. I am now trying to rotate text either 90 degrees or 270 degrees. I'm not sure of direction yet. Here is my code based on your earlier example:

Private Sub Label14_Paint(B yVal sender As Object, ByVal e As System.Windows. Forms.PaintEven tArgs) Handles Label14.Paint
Dim sf As New StringFormat
sf.Alignment = (StringAlignmen t.Center)
sf.LineAlignmen t = (StringAlignmen t.Center)
Label14.Text = ""
e.Graphics.Tran slateTransform( Label14.ClientS ize.Width, Label14.ClientS ize.Height)
e.Graphics.Rota teTransform(90)
e.Graphics.Draw String(Label4.T ext, Label14.Font, Brushes.Black, RectangleF.op_I mplicit(Label14 .ClientRectangl e), sf)
End Sub

When I display the form....the text is not visible at all. Any idead?

Thanks,
John

[jcrouse]

Well...here's some more information. If I use an angle of 180 it's right in the center of the label box. If i slowly increment it by 10 degrees at a time it seems to swing on a radius that is centered in the lower right hand corner of the label box. Either the first or last "eGraphics" line need to take into account the size of the label box and probably somehow divide something in half. I've tried for about two hours now but not understanding the parameters on those two lines completely makes it quite difficult to decipher

Ideas
John

[jcrouse]

Well...here's some more information. If I use an angle of 180 it's right in the center of the label box. If i slowly increment it by 10 degrees at a time it seems to swing on a radius that is centered in the lower right hand corner of the label box. Either the first or last "eGraphics" line need to take into account the size of the label box and probably somehow divide something in half. I've tried for about two hours now but not understanding the parameters on those two lines completely makes it quite difficult to decipher

Ideas
John