Insertion de photo dans vfp

Question

Coucou, 

voila, je debute un peu dans vfp et je voudrais savoir commeny faire pour pouvoir inserer une photo dans un formulaire qui pourra etre changer par un utilisateur   

Merci d'avance

Mike Gagnon · Answer

Cela d&#233;pend de la version de VFP que tu utilise. Si tu as la version 9, voici un exemple


Public oform1


oform1=Newobject("form1")


oform1.Show


Return


Define Class form1 As Form


Top = 2


Left = 70


Height = 481


Width = 603


DoCreate = .T.


Caption = "Form1"


nsavegraphicshandle = .F.


Name = "Form1"


Add Object command1 As CommandButton With ;


Top = 396, ;


Left = 288, ;


Height = 27, ;


Width = 84, ;


Caption = "Command1", ;


Name = "Command1"


Procedure command1.Click


lcPic = Getpict()


lnAngle = 90


Public oGr As GpGraphics Of Home(1)+"ffc/_gdiplus.vcx"


oGr = Newobject('GpGraphics',Home(1)+'ffc/_gdiplus.vcx')


oGr.CreateFromHWND(Thisform.HWnd)


Public oLogoImage As GpImage Of Home(1)+"ffc/_gdiplus.vcx"


oLogoImage = Newobject('GpImage',Home(1)+'ffc/_gdiplus.vcx')


oLogoImage.CreateFromFile(lcPic)


oRect= Newobject( ;


'GpRectangle',Home(1)+'ffc/_gdiplus.vcx','',5, 5, 289, 145)


oGr.DrawImageScaled( oLogoImage, oRect )


Endproc


Enddefine

Mike Gagnon

mimyangelworld · Answer

je suis sur la version 6, le soucis est que je n'arrive pas a l'executer pour que la photo puisse etre changer, je n'arrive meme pas a la charger  


MimyAngelWorld

Mike Gagnon · Answer

Utiliser le controle image et peut-etre il te manque un CLEAR RESOURCES


PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
 DoCreate = .T.
 Caption = "Form1"
 Name = "Form1"
 ADD OBJECT image1 AS image WITH ;
  Height = 169, ;
  Left = 48, ;
  Top = 12, ;
  Width = 241, ;
  Name = "Image1"
 ADD OBJECT command1 AS commandbutton WITH ;
  AutoSize = .T., ;
  Top = 204, ;
  Left = 131, ;
  Height = 27, ;
  Width = 112, ;
  Caption = "Chercher l'image", ;
  Name = "Command1"
 PROCEDURE command1.Click
  CLEAR RESOURCES
  lcPic = GETPICT()
  this.Parent.image1.Picture = lcpic
 ENDPROC
ENDDEFINE

Mike Gagnon

cs_hesham · Answer

ce que je comprends que tu veux voir une photo sur un formulaire 
inserer les objets suivants:
1-un textbox pour le chemin de la photo (ex:Text1)
2-un boutton Inserer (Command1)
3-et le controle Image (Image1)
et dans l'evenement PROGRAMATIQUECHANGE
 inserer le code suivant:
 Thisform.Image1.Picture=Thisform.Text1.Value
 Thisform.Image1.Refresh
et dans l'evenement click du bouton(command1)
 thisform.text1.Value=GETPICT("","",'Inserer')
et tu peux utiliser l'image du bouton.
merci et bon courage 

Hicham Moussafii

Mike Gagnon · Answer

et dans l'evenement PROGRAMATIQUECHANGE
inserer le code suivant:

Je ne connais pas cette &#233;venement PROGRAMATIQUECHANGE? Peut-etre InteractiveChange?

Mike Gagnon

mimyangelworld · Answer

Je n'ai pas : PROGRAMATIQUECHANGE ou InteractiveChange, on parle bien de la version 6 de vfp ?

Mike Gagnon · Answer

As-tu essayer le code (la deuxieme vesion) que j'ai propos&#233;?

Mike Gagnon

cs_hesham · Answer

oh sorry,j'ai oublie que la version 8 n'a pas ProgramatiqueChange .
j'utilise aujourd'hui vfp8,si vous ne pouvez pas travailler avec proceder comme suit:
deplacer le code de programatiquechange dans le click du bouton Parcourir
et encore dans VALID de Texte du chemin.

cs_hesham · Answer

j'essaye de donner une explication clair et facile,surtout pour les debuteur,et je pense parler du class dans un premier temps ,rends les choses pour eux plus complexe.
merci de votre comprhension Mr  Mike Gagnon

mimyangelworld · Answer

ok, c'est bon, ca marcje nickel, merci beaucoup 

MimyAngelWorld

mimyangelworld · Answer

Mais si je veu mettre un lien dans la base vfp qui sera relier au formulaire et au nom, comment vous pensez que je peu faire? 


MimyAngelWorld

Insertion de photo dans vfp

11 réponses

Votre réponse

Discussions similaires