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


ASPPainter::Region::Region.vbs

							
'============================================================
'Sample Region.vbs
'============================================================

Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,200

Dim points(8)
points(0) = 0
points(1) = 0
points(2) = 150
points(3) = 00
points(4) = 100
points(5) = 75
points(6) = 100
points(7) = 150

pic.SetColor 0,0,255,255

pic.DrawLine 0,0,200,200

pic.SetColor 255,255,255,255
pic.DrawPolygon points, 8
pic.SetRegion points,8

pic.SetColor 0,0,0,255
pic.SetLineWidth 3
pic.DrawLine 0,0,200,200

pic.SaveToFile "C:\region.png"
pic.DestroyAll

Set pic = Nothing


Picture 1. region.png

More samples:

Region

See also:

SetBKColor, Create, SetColor , DrawLine , DrawPolygon , SetRegion , SetLineWidth , SaveToFile , DestroyALL



home samples purchase documentation download