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