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