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


ASPPainter::Brush::Pie.vbs

							
'============================================================
'Sample Pie.vbs
'============================================================

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

pic.SetImageIndex 1
pic.SetBKColor 255,0,0,255
pic.LoadFile "C:\fish.gif"
pic.MakeThumbnail 10,10
pic.SetBrush

pic.SetImageIndex 0
pic.SetLineWidth 10
pic.SetColor 255,255,0,255
'pic.DrawPie 50,50,30,80,0,60
pic.DrawFilledPie 10,10,50,70,0,90

pic.SaveToFile "C:\brushpie.png"
pic.Destroy

Set pic = Nothing

Picture 1. brush.png

More samples:

Circle, Arc, Ellipse, Polygon, Pie, Brush

See also:

SetBrush, SetImageIndex, SetBKColor, LoadFile, Create, DrawFilledPie, SetColor, SaveToFile,  DestroyALL, MakeThumbnail, SetLineWidth



home samples purchase documentation download