ASP Painter
Home
Home
Samples
Samples
Purchase
Purchase
Download
Download
Documentation
Documentation


ASPPainter::Text::TextInRect.vbs

							
'============================================================
'Sample 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



home samples purchase documentation download