SAUVEGARDER UNE IMAGE ET UN GRAPHICS

Version imprimable

Bonjour

Je dois faire un programme avec un scanner.
J'arrive à scanner mais sur l'image l'utilisateur doit faire des modifications, du genre surlignage annotations etc...

L'image est dans une picturebox sur laquelle j'ai associé un objet graphics pour les modifs tous s'affiche mais au moment de la sauvegarde de l'image je n'ai que l'image original sans le graphics.

Je voudrais savoir si il y a moyen de sauvegarder le tout ou de passer par autre chose que l'objet graphics

Exemple

ci j'insère un texte avec l'objet Graphics

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Picture1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picture1.MouseUp
 
        up = New Point(e.Y, e.Y)
        r = New Rectangle(down.X, down.Y, up.X - down.X, up.Y - down.Y)
        If Stylo.Checked = True Then
            Dim s As String
            s = InputBox("Votre Texte", "Texte à afficher")
            g_PB.DrawString(s, New Font("Arial", 10), Brushes.Black, down.X, down.Y)
            g.DrawString(s, New Font("Arial", 10), Brushes.Black, down.X, down.Y)
 
        End If

Ici je fait la sauvegarde

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Sauver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sauver.Click
 
 
        SFD.Title = "Sauvegarde de l'image"
        SFD.InitialDirectory = "c:\"
        SFD.Filter = "Fichier PNG (*.png)|*.png"
        If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            'bmp.Save("tmp.gif", System.Drawing.Imaging.ImageFormat.Jpeg)
            bmp.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Png)
        End If
 
    End Sub

Merci d'avance

17/11/2008, 10h22
Pol63

il est possible de faire une sauvegarde d'une image via un graphics

d'ailleurs ceci est expliqué au moins une fois par semaine sur le forum ...

faire un new bitmap puis un graphics.fromimage()
ensuite tout ce qui est fait sur le graphics est aussi fait sur le bitmap
17/11/2008, 10h51
eric062

sauf que si je fait bmp.save ou graphics.save ils se sauvegarde indépendamment.
Je voudrais les sauvegarder dans une même image
17/11/2008, 10h52
tomlev

en fait, comme l'a dit sperot51, il faut créer le Graphics à partir de l'image, et non à partir de la PictureBox
17/11/2008, 11h07
eric062

j'ai lié mon graphics à un bmp , j'ai fait mes modifs mais rien y fait l'image finale reste l'image d'origine

Voici mon code qui montre que je lie mon graphics à mon bmp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub DisplayNativeImage()
 
        hBitmap = AxTwain1.GetHBitmap
        If bDisplayedImage Then Picture1.Image.Dispose()
        Picture1.Image = Image.FromHbitmap(hBitmap)
        bmp = New Bitmap(Image.FromHbitmap(hBitmap))
        bmp.Save("tmp.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        g = Graphics.FromImage(bmp)
        AxTwain1.DeleteHBitmap(hBitmap)
        bDisplayedImage = True
 
 End Sub

et voici celui de la sauvegarde

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Sauver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sauver.Click
 
        SFD.Title = "Sauvegarde de l'image"
        SFD.InitialDirectory = "c:\"
        SFD.Filter = "Fichier PNG (*.png)|*.png"
        If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            bmp.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            'bmp.Save(, System.Drawing.Imaging.ImageFormat.Png)
        End If
 
 
    End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
private bOrigine as image
private bModif as bitmap
private g as graphics
 
public sub new ' ou form load ou autre
  bOrigine = image.fromfile() ' ou autre
  bModif = new bitmap(bOrigine.width,bOrigine.height)
  g = graphics.fromimage(bModif)
  g.Drawimage(bOrigine,1,1)
  Picture1.image = bModif 
 
end sub
 
Private Sub Picture1_MouseUp (...)
        up = New Point(e.Y, e.Y)
        r = New Rectangle(down.X, down.Y, up.X - down.X, up.Y - down.Y)
        If Stylo.Checked = True Then
            Dim s As String
            s = InputBox("Votre Texte", "Texte à afficher")
            g.DrawString(s, New Font("Arial", 10), Brushes.Black, down.X, down.Y)
        Picture1.image = bModif 
end sub
 
 
private sub bouton_save_click
  bModif.save()
end sub
 
 
private sub EffaceTexte() ' si tu veux effacer les textes ajoutés
  g.clear(picture1.backcolor)
  g.Drawimage(bOrigine,1,1)
  Picture1.image = bModif 
end sub

17/11/2008, 11h42
eric062

Merci Sperot51 :king:

Ca marche :yaisse2: , l'autre problème était que ma plocie de texte était trop petite et je ne voyais pas les modifs :oops:

Encore merci