Discussion :

[eric062]

Bonjour,

Je crée un logiciel pour scanner et modifier des documents.
J'arrive donc à scanner et à modifier mes images les enregistrer aussi.

Mon soucis est de charger une image existante pour continuer à la modifier.
je n'arrive pas à enregistrer cette nouvelle modification.

voici le code

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
 
  Private Sub Choix_image_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Choix_image.ValueChanged
 
        If ok = True Then
            bmp.Save(fImage, System.Drawing.Imaging.ImageFormat.Jpeg)
            bmp.Dispose()
            fImage = Rep_client & BASE.Factures_Liste.CurrentRow.Cells("idbiencomptaclient").Value & "-" & Choix_image.Value & ".jpg"
            Picture1.Image = Image.FromFile(fImage)
            Dim bmp_origne As Image = Image.FromFile(fImage)
            bmp = New Bitmap(Image.FromFile("fImage"))
            g = Graphics.FromImage(bmp)
            g.DrawImage(bmp_origne, 1, 1)
            Picture1.Image = bmp
            Picture1.Refresh()
        End If
 
    End Sub

donc le bmp = New Bitmap(Image.FromFile("fImage")) ne me permet pas de réengistrer l'image

Y-a-t-il un moyen de charger une image existante pour la modifier et surtout la réenregitrer ?

Merci d'avance

[Pol63]

t'as pas besoin de faire un new bitmap, tu l'as deja via le fromfile

d'ailleur la ligne
bmp = New Bitmap(Image.FromFile("fImage"))
je suis pas sur qu'elle marche, fromfile demande un chemin de fichier !

[eric062]

Effectivement c'était une erreur de copier coller puisque fImage est une variable.

sauf que si j'utilise un variable de type image ça n'enregistre pas quand même.

voici mon nouveau code

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
 
 Private Sub Choix_image_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Choix_image.ValueChanged
 
        If ok = True Then
            If bmp_scan IsNot Nothing Then
                bmp_scan.Save(fImage, Imaging.ImageFormat.Jpeg)
                bmp_scan = Nothing
            Else
                bmp_file.Save(fImage, Imaging.ImageFormat.Jpeg)
            End If
            fImage = Rep_client & BASE.Factures_Liste.CurrentRow.Cells("id").Value & "-" & Choix_image.Value & ".jpg"
            Picture1.Image = Image.FromFile(fImage)
            Dim bmp_origne As Image = Image.FromFile(fImage)
            bmp_file = Image.FromFile(fImage)
            g = Graphics.FromImage(bmp_file)
            g.DrawImage(bmp_origne, 1, 1)
            Picture1.Image = bmp_file
            Picture1.Refresh()
        End If
 
    End Sub

[Pol63]

ca ne créé pas de fichier ?
le fichier est enregistré mais pas modifié ?

?

[eric062]

ça ne crée pas le fichier

[Pol63]

étrange ... .save soit ca créé un fichier, soit ca plante en théorie ...