ASPPainter::Gradient::LoadPNG.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.LoadFile "C:\flower.png"
w = pic.Width
h = pic.Height
pic.MakeThumbnail w/2,h/2
pic.SaveToFile "C:\loadpng.png"
pic.Destroy
Set pic = Nothing
 |
Picture 1. loadpng.png |
More samples:
Load BMP,
Load GIF, Load Jpeg,
Load PNG,
Load Tiff
See also:
LoadFile,
Width, Height ,
MakeThumbnail , SetFormat
, SaveToFile ,
DestroyALL