Sauvegarde image PictureBox avec Image.Save

Bonjour

j'ai placé dynamiquement sur un pictureBox1 un pictureBox2 à l'aide de DrawImage :

Code:

---

1 2 3 4 5

Dim g As Graphics Dim src_rect As New Rectangle(0, 0, largeur, hauteur) Dim dst_rect As New Rectangle(X, Y, largeur, hauteur) g = PictureBox1.CreateGraphics g.DrawImage(PictureBox2.image, dst_rect, src_rect, GraphicsUnit.Pixel)

---

Lorsque je veux sauvegarder l'image de pictureBox1 à l'aide de :

Code:

---

PictureBox1.Image.Save("c:\MonFichier.bmp", Imaging.ImageFormat.Bmp)

---

une exception est générée me disant que pictureBox1.image est Null (il n'y a pas d'image) et pourtant à l'écran je vois bien le PictureBox2 dans le PictureBox1.
Qu'est-ce qui ne convient pas ?
Merci de votre aide.

Bonjour,
c'est, je pense, comme ici.
A savoir attribuer le dessin à la propriété Image du picturebox concerné.
Dans le genre :

Code:

---

1 2 3 4 5 6 7

Dim Bmp As Bitmap = New Bitmap(PictureBox1.ClientSize.Height, PictureBox1.ClientSize.Width) Using g As Graphics = Graphics.FromImage(Bmp) Dim src_rect As New Rectangle(0, 0, largeur, hauteur) Dim dst_rect As New Rectangle(X, Y, largeur, hauteur) g.DrawImage(PictureBox2.Image, dst_rect, src_rect, GraphicsUnit.Pixel) PictureBox1.Image = Bmp End Using

---

Bonsoir

hélas, ce que vous me proposez ne convient pas car je rajoute plusieurs PictureBox dynamiques sur PictureBox1, et à chaque fois que je fais New Bitmap cela efface les PictureBox précédents avant d'afficher le nouveau.
On dirait que les PictureBox ne sont pas dessinés sur PictureBox1 avec ma méthode, mais simplement "posés".
Comment procéder alors ?
Merci.

Je me demandais si je n'aurais pas intérêt de placer plutôt mes pictureBox dynamiques dans un Panel pour les déplacer comme je veux, puis ensuite dans un picturebox non visible, redessiner toutes les images de mes pictureBox dynamiques, pour enfin sauvegarder l'image au format bmp de ce pictureBox caché.

Bonjour

en fait, j'ai mal exposé mon problème.
J'ai des picturebox dynamiques que j'ajoute (controls.add) sur un PictureBox1, et en même temps je dessine avec DrawImage sur un PictureBox3 l'ensemble de mon pictureBox1 avec ses pictureBox dynamiques.
C'est le pictureBox3 que je souhaiterais sauvegarder avec image.save, mais l'exception m'indique que pictureBox3 est vide.

Bonjour,

Citation:

---

Envoyé par sergelagier

Bonsoir

hélas, ce que vous me proposez ne convient pas car je rajoute plusieurs PictureBox dynamiques sur PictureBox1, et à chaque fois que je fais New Bitmap cela efface les PictureBox précédents avant d'afficher le nouveau.
On dirait que les PictureBox ne sont pas dessinés sur PictureBox1 avec ma méthode, mais simplement "posés".
Comment procéder alors ?
Merci.

---

c'est une histoire de portée de variable
Déclaré et instantié dans la procédure, le Bitmap est créé à chaque appel de celle ci et ne vit que le temps de celle ci.
Seul le dernier dessin est conservé.

Il faut déclarer le Bitmap au niveau de la classe et l'instancier au démarrage du formulaire par exemple :

Code:

---

1 2 3 4 5 6 7

Dim Bmp As Bitmap   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   Bmp = New Bitmap(PictureBox1.ClientSize.Height, PictureBox1.ClientSize.Width)   End Sub

---

On dessine ainsi toujours sur le même Bitmap.

Exemple, j'ai créé une ImageList qui comprends quelques images de même format 64*64.
J'ai un Button qui peut m'ajouter quelques images horizontalement :

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Integer Dim im As Integer = 0 Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click   AjoutImage(Bmp, 64, 64, i, 0, ImageList1.Images(im)) i += 70 im += 1   End Sub

---

et la procédure d'ajout :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub AjoutImage(bmp As Bitmap, largeur As Integer, hauteur As Integer, X As Integer, Y As Integer, image As Image)   Using g As Graphics = Graphics.FromImage(bmp) Dim src_rect As New Rectangle(0, 0, largeur, hauteur) Dim dst_rect As New Rectangle(X, Y, largeur, hauteur) g.DrawImage(image, dst_rect, src_rect, GraphicsUnit.Pixel) PictureBox1.Image = bmp End Using   End Sub

---

enfin si je fais:

Code:

---

PictureBox1.Image.Save(Application.StartupPath & "\MonFichier.png", Imaging.ImageFormat.Png)

---

j'ai bien toutes mes images sauvegardées sur le même Bitmap.

Super :ccool: ! j'ai bien mes pictureBox et je peux enregistrer avec image.save. Merci beaucoup de votre aide.

Par contre, j'ai un dernier (ce serait étonnant ?!!) petit soucis : l'image bmp sauvegardée à son fond entièrement noir. Pourtant j'ai mis le backColor de ce picturebox à Color.White.
J'ai donc le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Bmp As Bitmap   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   Bmp = New Bitmap(PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height)   PictureBox1.BackColor = Color.White   AjoutImage(....   PictureBox1.Image.Save(....   End Sub

---

Avez-vous une explication SVP ?

Deuxième question : pourquoi faut-il mettre ClientSize.Width et pas indiquer directement Width ?

Cordialement.

Et quand j'enregistre un Png, le fond est transparent !! :?

C'est bon j'ai trouvé ce qu'il fallait faire :

Code:

---

1 2 3

bmp = New Bitmap(PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height) Dim g As Graphics = Graphics.FromImage(bmpEtiquette) g.Clear(Color.White)

---

et j'ai supprimé le BackGround.
Voilà cela pourra peut-être servir à d'autres qui débutent comme moi.

Encore merci. Discussion résolue :lol:

J'utilise, par habitude, le format png car il gère la transparence, mais je ne suis pas spécialiste de ces formats, si un connaisseur passe par là ...
Pour la seconde question, c'est une habitude aussi,je préfère utiliser la zone cliente que la zone occupée par le contrôle.
La zone cliente d'un contrôle correspond aux limites du contrôle, moins les éléments non-clients, tels que les barres de défilement, les bordures, les barres de titre et les menus.
C'est vrai que pour un PictureBox même avec une bordure 3D, il n'y aura peu de zones tronquées sur l'image affichée.