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


ASPPainter::Gradient::LoadGIF.vbs

							
'============================================================
'Sample 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



home samples purchase documentation download