ASPPainter::Copy Resize Merge::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