Enregistrement d'une image agrandie [Résolu]

Signaler
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008
-
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008
-
Bonjour à tous

Voila j'ouvre une image dans une picture box, je peut regler sa taille grace a un zoom et je dessine des rectangle dessus. Cependant j'aimerais que quand on enregistre l'image dans la picture box, qu'elle conserve le zoom.

Voici le code de l'agrandissement:

        picturebox.Width = 516 * zoom
        picturebox.Height = 461 * zoom
        picturebox.Refresh()

Voici le code de l'enregistrement:

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK And SaveFileDialog1.FileName <> "" Then
            Dim map As Graphics = Graphics.FromImage(picturebox.Image)
            draw(map)
            picturebox.Image.Save(Me.SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Jpeg)
        End If

Comment dois je faire pour que l'image soit agrandie?

Merci beaucoup

8 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Ha ok,
Et avec ça??
Dim

bm
As Bitmap =
New Bitmap(picturebox1.Image,PictureBox1.Width, PictureBox1.Height)

Dim g
As Graphics = Graphics.FromImage(bm)

sinon regarde si il est possible de faire pareil que le new bitmap en précisant la hauteur et largeur de ta picturebox en paramètres..Je vais pas tarder à rentrer et chez moi je n'ai pas vb.net donc je ne pourrais plus trop t'aider..

A ++
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Salut,

En vb6, j'utilisais savepicture(picturebox.image,Savefiledialo1.filename)
Je ne connais pas l'équivalent en vb.net..En espérant que ça puisse t'aider.
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008

C'est ca l'equivalent; mais il garde la taille de base de l'image, il ne veut pas l'enregistrer agrandie
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Ok,

Et quand tu le fais la picture est bien redimensionnée à ce moment là.
Sinon essaye peut etre ça :

Dim bm As Bitmap = picturebox.Image
bm.save(Me.SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Jpeg)
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008

j'ai essayé et ca reste a la taille d'origine 561*491
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Re,

Dim bm As Bitmap = New
Bitmap(picturebox1.Image,PictureBox1.Width, PictureBox1.Height)

bm.save(Me.SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008

L'image de fond s'enregistre à la bonne taille, mais les points que je rajoute ne s'affiche pas, c'est pour cela que je suis passé par un graphics
Messages postés
38
Date d'inscription
dimanche 29 janvier 2006
Statut
Membre
Dernière intervention
17 août 2008

Merci beaucoup ca fonctionne :-)