Discussion :

[eric062]

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 :

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

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 :

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

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

[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

[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

[tomlev]

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

[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

[eric062]

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

Code :

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

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 :

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

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

[Pol63]

Code :

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

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

[eric062]

Merci Sperot51

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

Encore merci