Rotating Text Box

[Bandit33x]

Can You put label and text boxes on an angle?

[meteo]

EDIT***Never tried it with a textbox, but with a label it works great. I added a method of doing the textbox at the bottom of the post.


Well sure ya can. But I dunno if you can do it within VB. Simply open up a decent image editor *I use Paint Shop Pro* but any one will work. Type what you want in the font size, color, style, etc you want. Resize the "image". Then usually under Image or Edit or something, there is a "rotate image" feature. Rotate it how you want it and save it. Then you can simply just enter it as a picture, background, or whatever you want it as.

NOTE* Just make sure that the background of your "image" is either the same color as the background of your form or that the background of the "image" is transparent. Trust me, it will work and look nice if you do it right.

Good Luck!


EDIT*** For a textbox method
Make your form with a textbox with the text you want inside of it. Then hit "Print Screen" to copy your screen. Then, inside of your photo editor, just paste it in *Edit, Paste or CTRL+v* Then just select the textbox area you want and crop it. *Sorry, I'm assuming you have basic image editing skills. If not, let me know* Then, again, you can use the rotate feature to rotate it. Then save it, and enter it as a picture on your form. Of course, this can only be done if the text in your textbox is static and not supposed to change.

[usetheforce2]

hey,

you can use the createfont and selectobject API to rotate text for a picture box very simply. here's quick little demo for ya...

put a picture box on a form (leave as picture1)

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Sub changeFont(esc As Long)
Dim New_Font_Hnd As Long
Dim Old_Font_Hnd As Long

' to change the angle the text just change the value of "esc"
New_Font_Hnd = CreateFont( _
16, _
16, _
esc, _
0, _
0, _
True, _
True, _
False, _
0, _
0, _
0, _
0, _
0, _
"timenewroman")

' now select the new font for the picture object

Old_Font_Hnd = SelectObject(Picture1.hdc, New_Font_Hnd)

With Picture1
.ScaleMode = vbPixels
.CurrentX = (.ScaleWidth / 2) - 100 - 16 * 3
.CurrentY = .ScaleHeight / 2
Form1.Picture1.Print "UseTheForce"
End With

'[clean up]

' now release new font and set back to old font

New_Font_Hnd = SelectObject(Picture1.hdc, Old_Font_Hnd)

' delete our new font object
DeleteObject New_Font_Hnd

End Sub




' ------------------ Call routine -----------------

Private Sub Form_Load()

Call changeFont(100) '<-- simply call routine like this

End Sub


enjoy
Regan