ASPPainter::Text::TextInRect.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.SetColor 255,0,255,255
pic.SetFontOrientation 0
pic.SetFontRectangle 0,0,150,90
pic.DrawRectangle 0,0,150,90
pic.SetColor 0,0,255,255
pic.setTextAlign 2
pic.TextOut 10,10, "Text in rectangele. Align right."
pic.ClearFontRectangle
pic.SetFontRectangle 0,91,150,181
pic.DrawRectangle 0,91,150,181
pic.setTextAlign 1
pic.TextOut 10,10, "Text in rectangele. Align center."
pic.ClearFontRectangle
pic.TextOut 0,190, "ASPPainter 1.1 "
pic.SetColorIndex 1
pic.SetColor 0,255,0,127
pic.SetGradient 0,0,200,200
pic.TextOut 30,220, "ASPPainter 1.1 "
pic.SaveToFile "C:\textinrect.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. textinrect.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