Please view complete list of samples

Sample 17

Gray Scale Image.

Converting to gray scale image

GrayScale.vbs

Dim im
Set im = CreateObject("ActiveImage.Images.1")
im.SetImageType 1
im.ReadFromFile "c:\rose.jpg"
im.ConvertToGrayScale
im.WriteToFile "c:\gray.jpg"
im.DestroyImage

Set im = Nothing


	Picture 1. rose.jpg (size - 7 Kb)	Picture 2. gray.jpg (transparent, size - 4 Kb)

Next sample >>

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

	Privacy Policy
© 1999-2005. Tonec, Inc. All rights reserved.