VB/WinAPI, Small simple graphics problem

Small simple graphics problem - help appreciated!

Author	Message
Nicholas Hil #1 / 2	Small simple graphics problem - help appreciated! Here is some code, PicFileName can be something like "c:\1.gif", and this code is executed on a button click. It adds text to a loaded picture before it "supposedly" saves it, with the text on it. It doesn't. Picture1.Picture = LoadPicture() If UCase$(Right$(PicFileName, 4)) = ".GIF" Then Picture1.Picture = LoadPicture(PicFileName) Picture1.CurrentX = 15 * Val(XPos.Text) Picture1.CurrentY = 15 * Val(YPos.Text) Picture1.Font.Name = "Arial" Picture1.Font.Size = 20 Picture1.Print WhatToPrint.Text PicFileName = ".\Temp\temp1.gif" SavePicture Picture1.Picture, PicFileName Does anyone know how to save what you see to a .GIF file? Thanks, -- Age: 15 / Sex: Male / Location: Wales / Status: Christian :) Netiquette: http://www.--*.com/
Thu, 02 Aug 2001 03:00:00 GMT

Arthur Mark #2 / 2	Small simple graphics problem - help appreciated! Before saving do: Picture1.Picture = Picture1.Image The problem with gif is that you need a license to use the compression algorithms. There is a freeware dll that will let you save in jpeg format. Let me know if you need it and I'll see if I can find the URL. Art Quote: > Here is some code, PicFileName can be something like "c:\1.gif", and this > code is executed on a button click. It adds text to a loaded picture before > it "supposedly" saves it, with the text on it. > It doesn't. > Picture1.Picture = LoadPicture() > If UCase$(Right$(PicFileName, 4)) = ".GIF" Then Picture1.Picture = > LoadPicture(PicFileName) > Picture1.CurrentX = 15 * Val(XPos.Text) > Picture1.CurrentY = 15 * Val(YPos.Text) > Picture1.Font.Name = "Arial" > Picture1.Font.Size = 20 > Picture1.Print WhatToPrint.Text > PicFileName = ".\Temp\temp1.gif" > SavePicture Picture1.Picture, PicFileName > Does anyone know how to save what you see to a .GIF file? > Thanks, > -- > Age: 15 / Sex: Male / Location: Wales / Status: Christian :) > Netiquette: http://members.xoom.com/connivex/behave/
Thu, 02 Aug 2001 03:00:00 GMT

Page 1 of 1

[ 2 post ]