
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/