| Stefan Wuebbe 2005-06-06, 3:24 am |
|
"Ioannis Stefis" <stefsin@otenet.gr> schrieb im Newsbeitrag
news:e4XrujgaFHA.3572@TK2MSFTNGP12.phx.gbl...
>I did it with the first way!!!
> do mymethod()
> thisform.Image1. Picture='c:\test'+a
lltrim(str(thisform.kaopid1.value))+'.jp
> g'
>
> Thanks a lot Stefan.
You're welcome.
FWIW, I pasted an example below (few weeks old :)
-Stefan
--
|\_/| ------ ProLib - programmers liberty -----------------
(.. ) Our MVPs and MCPs make the Fox run....
- / See us at www.prolib.de or www.AFPages.de
-----------------------------------------------------------
* image_picture_pictur
eval.prg
LOCAL oForm as Form
oForm = CREATEOBJECT('TestFo
rm')
oForm.Show(1)
RETURN
DEFINE CLASS TestForm as Form
AutoCenter = .T.
PROCEDURE Load
LOCAL cFile
CREATE CURSOR temp (picfile C(250), picbinary BLOB)
cFile = HOME(4)+'\BITMAPS\Ga
uge\VERT.BMP'
INSERT INTO temp VALUES (cFile, FILETOSTR(cFile))
cFile = HOME(4)+'\BITMAPS\Ga
uge\THERLFT.BMP'
INSERT INTO temp VALUES (cFile, FILETOSTR(cFile))
cFile = HOME(4)+'\BITMAPS\Ga
uge\HORZ.BMP'
INSERT INTO temp VALUES (cFile, FILETOSTR(cFile))
GO TOP IN temp
ENDPROC
ADD OBJECT Image1 as Image WITH ;
Left = 50
ADD OBJECT Image2 as Image WITH ;
Left = 150
ADD OBJECT cmdBack as Commandbutton WITH ;
Height = 24, Top = 190, Left = 50, ;
Caption = '<'
PROCEDURE cmdBack.Click
SKIP -1 IN temp
IF BOF('temp')
?? CHR(7)
GO TOP in temp
ENDIF
Thisform.Refresh()
ENDPROC
ADD OBJECT cmdNext as Commandbutton WITH ;
Height = 24, Top = 190, Left = 150, ;
Caption = '>'
PROCEDURE cmdNext.Click
SKIP 1 IN temp
IF EOF('temp')
?? CHR(7)
GO BOTTOM in temp
ENDIF
Thisform.Refresh()
ENDPROC
PROCEDURE Refresh()
WITH Thisform
.image1.Picture = temp.picfile
.image2.PictureVal = temp.picBinary
ENDWITH
ENDPROC
ENDDEFINE
* eop
|