Discussion :

[nath-0-0]

bonjour,

voici mon code copier-coller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
res est une chaîne
res=PressePapier(img_photo_2)
Info(res)
res = dSauveImageGIF(img_photo_2, "C:\Photo\Image.GIF")

Est-il possible de redimensionner l'image contenu dans le presse papier, car sinon l'image n'apparait pas integralement dans mon champs image et seul la partie visible dans le champs est sauvee!

[Jannus]

Il faut redimensionner le champ image aux dimensions de l'image avant d'y coller l'image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Image1..Hauteur=PressePapierHauteur()
Image1..Largeur=PressePapierLargeur()
res=PressePapier(Image1)

[nath-0-0]

je cherchais plutot que l'image contenu dans la presse papier s'adapte au champ image, mais d'apres ta solution je sui arrivée au meme resultat.
Si cela interesse certain, voici le code(tout simple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
res est une chaîne
resBol est un booléen
sNomrep est une chaîne
nomchampimage est une chaîne
//j'adapte le champs image afin de pouvoir voir l'image contenu dans le presse papier dans son integralite
img_photo_2..Hauteur=PressePapierHauteur()
img_photo_2..Largeur=PressePapierLargeur()
res=PressePapier(img_photo_2)
 
//je construit le chemin ou l'image doit etre enregistree et cree le repertoire si necessaire
nomchampimage = id+".img_photo_2.jpeg"
sNomrep = gp_cRepertoirePhoto + "\" + id
SI fRep(sNomrep,frRépertoire) = "" ALORS
	// Création du répertoire
	SI fRepCrée(sNomrep) = Faux
	Erreur(ErreurInfo(errMessage))
	Info("Création du répertoire Photo du Bien est impossible, donc les photos ne sont pas enregistrées !")
	RETOUR
FIN
FIN
// j'enregistre l'image dans le repertoire construit auparavant
resBol = dSauveImageJPEG(img_photo_2, sNomrep + "\" + nomchampimage)
SI PAS resBol ALORS
	Erreur(ErreurInfo(errMessage))	
FIN
// le champs suivant contient le chemin de l'image qui est insere dans la BDD
chemin_Photo_2 = nomchampimage
//je readapte mon champs image a sa valeur intial
img_photo_2..Hauteur=120
img_photo_2..Largeur=120
//je cahrge a nouveau
img_photo_2  = sNomrep + "\" + nomchampimage

merci guardian