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


ASPPainter::Fill::Fill.vbs

							
'============================================================
'Sample Fill.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.SetColor 0,255,0,255
pic.Fill 90,99
pic.SaveToFile "C:\fill.png"
pic.DestroyAll

Set pic = Nothing


Picture 1. fill.png

More samples:

Fill

See also:

Fill



home samples purchase documentation download