Discussion :

[lakau]

Bonjour,

Je suis étudiant et je programme sur VB.net, j'essaie d'enregistrer un graphique qui est dans une picturebox en format jpeg.
Auriez vous une suggestion ?
Merci beaucoup


Code déjà testé:

Code :

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

picturebox1.image.save(emplacement du fichier)

ou

Code :

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

picturebox1.save(SaveFileDialog1.FileName,system.Drawing.Imaging.ImageFormat.jpeg)

[Rainui]

Bonsoir,

Vous y étiez presque, regardez ICI

Il faut lui donner le nom du fichier suivit de l'extension : MonImage.jpg

[lakau]

Merci !

Mais à ce moment là comment fait-on pour que l'enregistrement se fasse lorsque l'on clique sur un bouton présent dans la form ou est la picturebox ?

Public Sub butEnregistrer_Click(Byval ...., Byval e As System.EventArgs) Handles butEnregistrer.click

J'aimerai enregistrer mon graphique à partir de cette procédure, donc comment coder :

Code :

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

1
2
3
4
Public Sub Save ( _
	filename As String, _
	format As ImageFormat _
        'tiré de votre lien ?

Parce que le programme (VB 2008) me dit qu'il ne connait pas "ImageFormat", il ne me propose que "ImageFormatConverter"

Merci

[Rainui]

Comme celà par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim SaveDialog As New SaveFileDialog
    SaveDialog.DefaultExt = ".jpg"
    If SaveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image.Save(SaveDialog.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
    End If
End Sub

[lakau]

Merci,

Lors de l'exécution, le programme me signifie une NullReferenceException.

Je n'arrive pas à gérer cette erreur.
J'ai tout déclaré, mes objets sont également déclarés

J'ai ajouté à la Form de la PictureBox un SaveFileDialog1.
L'erreur se fait à ce niveau:
pctbGraph.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

J'ai essayé en enlevant: System.Drawing.Imaging.ImageFormat.Jpeg

Je ne comprends pas pourquoi il y a cette erreur

Auriez-vous une idée s'il vous plait?


J'ai également rajouté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim _path As String = ""
        Dim SaveFileDialog1 As New SaveFileDialog
        With SaveFileDialog1
            .CheckFileExists = False
            .Filter = "Les fichiers image (jpg *.) | *. jpg"
            .FileName = ""
            .FilterIndex = 2
            _path = .FileName.ToString()
 
            If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                pctbGraph.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
        End With

Je ne sais pas si c'est utile de le rajouter...


Merci

[Rainui]

Bonsoir,

Si la valeur de

Code :

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

SaveFileDialog1.FileName

est nul, c'est que aucun nom n'a été donné au fichier

Ce que vous avez ajouté n'est pas forcément utile surtout

Code :

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

1
2
.FileName = ""
.FilterIndex = 2

Sinon le code que je vous ai fourni fonctionne correctement.

[lakau]

Bonjour,


Merci beaucoup pour votre aide. J'ai beau assigner un nom à SaveFileDialog1, le problème reste là, la référence d'objet n'est pas définie à une instance objet. Je vais continuer à creuser.

Merci,


Bonne journée

[Rainui]

Bonjour,

"la référence d'objet n'est pas définie à une instance objet" veut dire que vous faites appel à un objet non instancié.

Pouvez vous re-poster votre code que l'on puisse vous dire d'ou cela peut provenir?

[Pol63]

quand on dessine dans un picturebox via un graphics picturebox1.image n'existe pas (vaut Nothing), et Nothing.Save n'est pas possible d'où l'erreur
la propriété image du picturebox ne contient quelque chose que si on lui donne une image jpeg ou autre

la méthode du dessin avec un graphics fonctionnent sur tous les controles, et tous n'ont pas une propriété image

il faut faire un new bitmap(widht, height) puis faire un graphics = graphics.fromimage(lebitmap) (bitmap ne signifie pas ici le format bmp)
ensuite tout ce que vous dessinez sur le graphics se dessine sur l'image
et ca permet à la fin de faire lebitmap.save(chemin, jpeg)

[Shennong]

Bonjour,

Le sujet n'étant pas résolu, j'en profite pour le continuer en posant une question dans la même lignée.

J'ai bien réussi avec les message précédent à dessiner à main levée dans mon picturebox. La fonction pour l'enregistrer en jpeg fonctionne bien, le fichier est bien créé.

Cependant, lorsque je clic sur le fichier pour l'ouvrir, il m'affiche juste une image toute noire. Mon "dessin" sur fond blanc de la picturebox n'apparaît pas. Quelqu'un aurait une idée svp ?

Voici mon code :

Pour dessiner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 If pic_Resp.Capture Then
 
            Dim NewPoint As New Point(e.X, e.Y)
            Dim newgraphic As Graphics = Graphics.FromImage(MyBitMap) 
 
            newgraphic.DrawLine(ThePen, PreviousPoint, NewPoint)  
 
            pic_Resp.Image = MyBitMap                      
 
            PreviousPoint = NewPoint
 
        End If

Et le code pour sauvegarder :

Code :

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

1
2
 
pic_Resp.Image.Save("CHEMIN\NOM_DE_FICHIER.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Merci d'avance pour votre aide.

Cordialement-

[Pol63]

il faudrait plus de code pour voir d'où vient le problème

dans le principe :
avoir ou créer un bitmap
graphics.fromimage
graphics.Clear(couleur de fond souhaitée) si création d'un bitmap
draw* dans la bonne zone (hors zone forcément ca ne se voit pas)
save

on ne voit pas d'où vient ton bitmap, ni si tu clear, on ne peut pas deviner si les coordonnées et si le pen (couleur et taille) son ok, et on ne voit pas à quel moment est fait le save

[wallace1]

Bonsoir,

Pour enregistrer le contenu de ton PictureBox (qu'il y ai du graphicPath ou autre) :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using b = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        PictureBox1.DrawToBitmap(b, New Rectangle(0, 0, b.Width, b.Height))
        b.save("D:\FileName.jpeg", Imaging.ImageFormat.Jpeg)
End Using
End Sub

A toi de voir ensuite pour paramétrer la qualité de ton Jpeg.

A+

[MABROUKI]

bonjour
ton post est de nature à semer la confusion parce que ,comme dit par Pol6i ,ton code de dessin n'est pas communiqué !!!
mais il y a manifestement 2 parties bien séparées dans ton problème :
1/ le code pour dessiner sur bitmap très simple
2/ le code pour la sauvegarde du bitmap
3/ le code superfétatoire d'affichage sur un picturebox

[wallace1]

bonjour
ton post est de nature à semer la confusion parce que ,comme dit par Pol6i ,ton code de dessin n'est pas communiqué !!!
mais il y a manifestement 2 parties bien séparées dans ton problème :
1/ le code pour dessiner sur bitmap très simple
2/ le code pour la sauvegarde du bitmap
3/ le code superfétatoire d'affichage sur un picturebox

Euhhhhh.... a qui s adresse ce compliment.....

[MABROUKI]

bonjour
Pas à wallace1,mais à qui de droit c.à.d l'auteur du post évidemment !!