sauvegardé image à la taille réelle.

Question

Bonsoir
dans une form j'ai 3 PictureBox
dans le 1er je récupere une image
dans le second je récupere une image
et dans le troisième je fais fusionnés  images
voila le code pour intégré les images dans les picturebox

Private Sub ParcourirBox_Change()
Dim NewLargeur As Integer
Dim NewHauteur As Integer
Dim Coeff As Integer
Dim x As Integer
Dim y As Integer
p1(0).Cls
TailleReel.Picture = LoadPicture(CommonDialog1.filename)



'si la taille est plus petite que la picturebox
If TailleReel.width < p1(0).width And TailleReel.height < p1(0).height Then
Coeff = 1
x = (p1(0).width - TailleReel.width) / 2
y = (p1(0).height - TailleReel.height) / 2
GoTo Affiche_image
End If
'definition du coefficient selon l'orientation de l'image



If TailleReel.width > TailleReel.height Then
    Coeff = TailleReel.width / p1(0).width
    x = 0
    y = (p1(0).height - (TailleReel.height / Coeff)) / 2
Else
    Coeff = TailleReel.height / p1(0).height
    x = (p1(0).width - (TailleReel.width / Coeff)) / 2
    y = 0
End If
Affiche_image:
NewLargeur = TailleReel.width / Coeff
NewHauteur = TailleReel.height / Coeff
p1(0).PaintPicture TailleReel.Picture, x, y, NewLargeur, NewHauteur
 
ReyCommand1.Enabled = True



End Sub

ma question est :
comment sauvegarder l'image du troisième picturebox à la taille réelle .
merci
petchy

cs_petchy · Answer

Re
en fait je veut dire enregistrer l'image.
petchy

jmfmarques · Answer

Bonsoir,
Sans préjudice du reste, que je n'ai pas pris la peine d'examiner dès lors que tu dus que tu as bien superposé les deux images :
Tu dois utiliser, avant de sauvegarder le résultat :
Picture_resultat.picture = Picture_resultat.image
où picture_resultat est la picturebox dans laquelle ta superposition a été faite (si faite avec succès).
Je le répète : sans préjudice de tout le reste (dimensionnements à l'échelle, etc... qui est de toi)...je me contente de te dire ce qui correspond à ta question et à ton titre et me sésintéresse bien évidemment de tout le reste.

Sauvegardé image à la taille réelle.

2 réponses

Votre réponse

Discussions similaires