Small simple graphics problem - help appreciated! 
Author Message
 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  
 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  
 
 [ 2 post ] 

 Relevant Pages 

1. Help - Simple Graphics problems

2. New user having problems and would appreciate any help

3. Problem delet'g #REF ranges Excel-help appreciated

4. Data Report Problem - Any help is appreciated

5. Running prog on other PC problem....any help appreciated :O)

6. VB3 Setup Wizard problems - appreciate some help

7. Network printing problem - help appreciated

8. Hi, any help resolving this problem will be greatly appreciated:

9. Simple graphics problem

10. help with simple graphics

11. Ado Help Please Help any help is appreciated

12. Small VB graphic Demo (Look at this) - vbgdemo.zip (1/1)

 

 
Powered by phpBB® Forum Software