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


ASPPainter::Gradient::Ellipse.vbs

							
'============================================================
'Sample Ellipse.vbs
'============================================================

Dim pic
Dim coords(100)
Set pic = CreateObject("ASPPAinter.Pictures.1")
pic.SetBKColor 0,0,0,0
pic.Create 100,100
pic.SetColor 0,0,255,255
pic.SetLineWidth 3

pic.SetColor 0,0,255,255
pic.SetColorIndex 1
pic.SetColor 255,255,0,255
pic.SetGradient 0,0, 100,100

pic.DrawEllipse 50,50,50,80

pic.DrawFilledEllipse 80,50,20,30


pic.saveToFile "C:\gradientellipse.png"
pic.SetFormat 3
pic.saveToFile "C:\gradientellipse.gif"
pic.DestroyALL
Set pic = Nothing



Picture 1. gradientellipse.png

More samples:

Arc, Bezier, Circle, Ellipse, Gradient, Pie, Polygon, Rectangle, Unclosed polygon

See also:

SetGradient, DrawFilledArc, DrawFilledCircle , DrawLine , DrawFilledRectangle , DrawPie , DrawFilledPie , DrawFilledPolygon , DrawPolygon , DrawRectangle , DrawUnclosedPolygon , DrawBezier, DrawEllipse, SaveToFile, DestroyALL, SetFormat, SetImageIndex, SetLineWidth, SetColor, DrawFilledEllipse, LoadFile, SetBKColor, Create, Width, DrawArc,SetColorIndex, Height, SaveToFile



home samples purchase documentation download