ASPPainter::Primitive::Rectangle.vbs
Dim im
Dim coords(100)
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 0,0,0,0
im.Create 100,100
im.SetColor 0,0,255,255
im.SetLineWidth 10
im.DrawRectangle 10,10,50,50
im.SetColor 0,255,255,255
'im.DrawFilledCircle 80,50,20
im.DrawFilledRectangle 80,80,90,90
im.saveToFile "C:\rectangle.png"
im.Destroy
Set im = Nothing
 |
Picture 1. rectangle.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