ASPPainter::Color::Color.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,255,255,255
pic.Create 200,250
'set green color, alpha channel value is not transparent
pic.SetHTMLColor "#00FF00",255
pic.SetLineWidth 10
pic.DrawLine 0,100,200,0
'set red color, alpha channel value is not transparent
pic.SetHTMLColor "FF0000",255
pic.SetLineWidth 10
pic.DrawLine 0,0,200,200
pic.SaveToFile "C:\testhtmlcolor.png"
pic.Destroy
Set pic = Nothing
 |
| Picture 1. testhtmlcolor.png |
More samples:
Arc,
Beziers, Circle,
Ellipse,
Line, Pie,
Rectangle, Unclosed
polygon
See also:
SetHTMLColor,
SetBKColor, Create,
SetColor ,
SetLineWidth , DrawArc
, DrawFilledRectangle
, DrawBezier ,
DrawCircle , DrawFilledCircle
, DrawEllipse ,
DrawFilledEllipse ,
DrawRectangle ,
DrawUnclosedPolygon , SaveToFile
, DestroyALL