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


ASPPainter::Database::Gray.vbs

							
'============================================================
'Sample Gray.vbs
'============================================================

Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,250
pic.SetbkColor 0,255,0,255
pic.SetFontName "Arial"
pic.SetFontSize 16
pic.SetColor 255,255,255,255

fontHeight = pic.GetFontHeight
line = fontHeight +10

pic.SetFontOrientation 0

pic.TextOut 10,line, "Regular"
pic.SetFontBold 1
line = fontHeight +line
pic.TextOut 10,line, "Bold"
pic.SetFontBold 0

pic.SetFontItalic 1
line = fontHeight +line
pic.TextOut 10,line, "Italic"
pic.SetFontItalic 0
pic.SetFontUnderLine 1
line = fontHeight +line
pic.TextOut 10,line, "Underline"
pic.SetFontUnderLine 0
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 10,line, "strikeout"
pic.SetFontBold 1

pic.SetFontBold 1
pic.SetFontItalic 1
pic.SetFontUnderLine 1
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 10,line, "Arial.ttf"
pic.Grayscale
pic.SaveToFile "C:\gray.png"
pic.Destroy

Set pic = Nothing

Picture 1. gray.png

More samples:

Gray

See also:

GrayScale



home samples purchase documentation download