Tonec.com Bringing Internet Technology Innovations to Market since 1991
  News Products Outsourcing About Us Contact Us
what's new?what's new? featuresfeatures samplessamples manualmanual downloaddownload buybuy
  Tonec Homepage
ProductsActive Imagesamples

Please view complete list of samples

Sample 15


Creating Thumbnails


Creating thumbnails

ThumbnailGif.vbs

Dim im
Set im = CreateObject("ActiveImage.Images.1")
im.SetImageType 3
im.ReadFromFile "C:/diagram.gif"
h = im.GetHeight
w = im.GetWidth
im.SetImage 1
im.CreateImagePalette CInt(w/2),CInt(h/2)
im.CopyImageResize 1,0,0,0,0,0,CInt(w/2),CInt(h/2),w,h
im.WriteToFile "C:/thumbnailgif.gif"
im.DestroyImage
im.SetImage 0
im.DestroyImage
Set im = Nothing


 diagram.gif thumbnailgif.gif
 Picture 1. diagram.gif (300x300 pixels, size - 7 Kb) Picture 2. ThumbnailGif.gif (150x150 pixels, size - 2 Kb)

Next sample >> 

If you have any questions or bug reports, write to support@tonec.com for technical support.

  TonecPrivacy Policy
  1999-2005. Tonec, Inc. All rights reserved.