چطوري ميشه زاويه نمايش يه label روي فرم رو تغيير داد؟

[mgh64120]

با عرض سلام و خسته نباشيد
آيا ميشه يه Label رو روي فرم با زاويه دلخواه مثلاً 90 درجه (عمودي) نمايش داد؟
متشكرم ! :متفکر:

[mgh64120]

یعنی هیچ راهی نداره ؟ :متفکر: :افسرده: :گریه:

[saeid.memfis]

Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
Dim drawstring As String = "N e t s k y"
Dim drawfont As New Font("Tahoma", 25)
Dim drawbrush As New SolidBrush(Color.Blue)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawformat As New StringFormat
drawformat.FormatFlags = StringFormatFlags.DirectionVertical
formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
drawfont.Dispose()
drawbrush.Dispose()
formgraphic.Dispose()


سلام دوست عزيز
فكر مي كنم اگه جستجو مي كردي اينو پيدا مي كردي

[ACorvinus]

Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
Dim drawstring As String = "N e t s k y"
Dim drawfont As New Font("Tahoma", 25)
Dim drawbrush As New SolidBrush(Color.Blue)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawformat As New StringFormat
drawformat.FormatFlags = StringFormatFlags.DirectionVertical
formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
drawfont.Dispose()
drawbrush.Dispose()
formgraphic.Dispose()


سلام دوست عزیز
فکر می کنم اگه جستجو می کردی اینو پیدا می کردی


سلام.

فکر کنم منظور دوستمون Rotate کردن خود Label باشه نه ایجاد کردن یه متن گرافیکی!!
البته اگه Rotate کردن Label عملی نباشه، چاره ای بجز استفاده از این روش نیست.

[fazelm]

چرا هست :


Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
Dim drawstring As String = "N e t s k y"
Dim drawfont As New Font("Tahoma", 25)
Dim drawbrush As New SolidBrush(Color.Blue)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawformat As New StringFormat
drawformat.FormatFlags = StringFormatFlags.DirectionVertical
formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
drawfont.Dispose()
drawbrush.Dispose()
formgraphic.Dispose()

[ACorvinus]

!!!!!!!!!!