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


ASPPainter::Primitive::Line.vbs

							
'============================================================
'Sample Line.vbs
'============================================================

Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 0,0,0,0
im.Create 100,100
im.SetColor 255,255,255,255
im.DrawLine 0,0,100,100

im.SetLineWidth 10

im.SetColor 0,255,255,255
im.DrawLine 0,50,100,50


im.saveToFile "C:\line.png"
im.Destroy
Set im = Nothing

Picture 1. line.png

More samples:

Arc, Beziers, Circle, Ellipse, Line, Pie, Rectangle, Unclosed polygon

See also:

SetBKColor, Create, SetColor , SetLineWidth , DrawArc , DrawFilledRectangle , DrawBezier , DrawCircle , DrawFilledCircle , DrawEllipse , DrawFilledEllipse , DrawRectangle , DrawUnclosedPolygon , SaveToFile , DestroyALL



home samples purchase documentation download