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

 


ASPPainter::Copy Resize Merge::Copy.vbs

							
'============================================================
'Sample Copy.vbs
'============================================================

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

pic.SetColor 0,0,255,255

pic.DrawLine 0,0,100,100
pic.SetColor 0,0,0,255

pic.SetbkColor 0,255,0,255

pic.SetImageIndex 1
pic.SetBKColor 255,255,0,255
pic.Create 10,10
pic.SetColor 0,0,255,255
pic.DrawLine 0,0,5,10

pic.SetImageIndex 0
'pic.DrawFilledRectangle 20,20,160,160
pic.Copy 0,1,50,0,0,0, 10,10
'pic.FillGradient
'pic.Rotate 90
'pic.Rotate 0
pic.SaveToFile "C:\copy.png"
pic.Destroy

Set pic = Nothing

Picture 1. copy.png

More samples:

Cat, Copy, Copy_with_transparent, Files, Photo, Merge, Merge cat, Resize, Resize photo

See also:

SetFormat, LoadFile, Width, Height, Copy, SetImageIndex, GetPixelAlpha, GetPixelBlue, GetPixelGreen, GetPixelRed, SetColor, SetColorAsTransparent, SaveToFile, DestroyALL



home samples purchase documentation download