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


ASPPainter::Copy Resize Merge::Resize.vbs

							
'============================================================
'Sample Resize.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.ResizeCopy 0,1,50,0,0,0, 20,20,10,10

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

Set pic = Nothing


Picture 1. resize.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