ASPPainter::Text::RotateText.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,250
pic.SetColor 0,0,255,255
pic.SetFontName "Arial"
pic.SetFontSize 16
pic.SetFontOrientation 90
pic.TextOut 30,30, "Rotate Text 90'"
pic.SaveToFile "C:\rotatetext.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. rotatetext.png |
More samples:
Antialias,
Exist font, Font,
Fonts, Rotate text,
Style,
Text gradient, Text in
rectangle
See also:
TextOut,
SetFontBold, SetFontItalic,
SetFontUnderline,
SetFontStrikeOut,
GetFontHeight,
SetFontSize, SetFontName,
SetFontAntialias,
SetFontOrientation,
SetJpegQuality,
ExistFont, SetFontRectangle,
ClearFontRectangle,
SetTextAlign,
SetColorIndex, SetGradient,
ClearGradient,
SetColor, SetBKColor,
Create ,
SaveToFile , DestroyALL