image edit save very urgent
i m use the kodak image edit control
i m display one jpg image
i m annoate some text and i want to save the image
the image is not saved
i m using the code
ImgEdit1.Image = "D:\Projects\Multiimage\Source\Mir.jpg"
ImgEdit1.Display
Dim x As Font
Set x = ImgEdit1.AnnotationFont
x.Bold = True
x.Italic = False
x.Name = "Arial"
x.Size = 16
x.Underline = False
ImgEdit1.ScrollPositionX = 0
ImgEdit1.ScrollPositionY = 0
ImgEdit1.Refresh
ImgEdit1.AnnotationType = wiTextStamp
ImgEdit1.AnnotationFontColor = vbRed
imgEdit1.AnnotationFont = x
ImgEdit1.AnnotationStampText = Trim("sakthi")
ImgEdit1.Draw 10, 0
imgEdit1.SelectAnnotationGroup ""
ImgEdit1.AnnotationType = wiNone
ImgEdit1.SaveAs "d:\0120.jpg"
please help
it is very urgent
|