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


ASPPainter::Primitive::Rectangle.vbs

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



home samples purchase documentation download