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.