Probléme enregistrement image picturebox aprés modification

Version imprimable

Bonjour, je suis nouvelle sur ce forum, mais j'ai tout de même chercher une réponse à mon probléme mais je n'ai pas trouvée... C'est pourquoi je vous demande de l'aide...

Je dois développer un petit programme pour faire du drag ans drop.
Pour cela je possède dans ma form deux picutrebox, le premier contient l'image à déplacer (picturebox1), et le deuxième l'image de base (picturebox2). Je m'expliques : je dois "empiler" et rajouter une image sur mon image de base.
J'ai réussi jusqu'à présent à faire ceci...
je fais glisser mon image de picturebox1 sur l'image du picturebox2, mes images se superpositionne parfaitement (visuellement).
Le probléme est que quand je veux enregistrer ma nouvelle image de picturebox2 (les deux images empilé)
celle si ne contient visiblement que l'image de base, et pas l'image qui a été rajouter.
je me retrouves avec mon image de base, sans l'image superposé...

J'ai beau chercher je ne trouves pas comment faire pour enregistrer mon image avec ses modification graphics...

Merci d'avance...

voici un bout de mon code :
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 Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop 'dans levenement drag drop du control d'arriver 'on attribut l'image dans le picture box Dim picbox As PictureBox = CType(sender, PictureBox) Dim g As Graphics g = picbox.CreateGraphics() g.DrawImage(CType(e.Data.GetData(DataFormats.Bitmap), Image), New Point(0, 0)) 'si la touche CTRL n'ai pas enfonsé alors on supprime l'image source If Not e.KeyState = 8 Then PictureBox1.Image = Nothing End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox2.Image.Save("C:\Users\Audrey\Desktop\nom_fichier.Jpeg") End Sub

Bonjour,
tu dessines sur une surface de dessin qui vient se superposer sur ton image, mais qui n'en fait pas partie.
Car ton Graphic n'est lié à rien sinon à lui même.
Il faut donc l'associer à ton image réceptrice :
Code:

1 2 3 4 Dim g As Graphics g = Graphics.FromImage(PictureBox2.Image) g.DrawImage(CType(e.Data.GetData(DataFormats.Bitmap), Image), New Rectangle(10, 10, 100, 100)) PictureBox2.Invalidate()
Il faut rafraichir ton PictureBox pour le forcer à se redessiner et voir le résultat du DragDrop.

A noter que :

Code:

Dim picbox As PictureBox = CType(sender, PictureBox)

est superflu, sender étant explicitement défini par le Handless de ta sub.

22/02/2012, 13h12
asmduty

Citation:

Envoyé par chrismonoye

A noter que :

Code:

Dim picbox As PictureBox = CType(sender, PictureBox)

est superflu, sender étant explicitement défini par le Handless de ta sub.

Ce n'est pas superflu si on est en option Strict On, Implicit Off.
22/02/2012, 14h11
Audrey43

Bonjour chrismonoye, asmduty

chrismonoye, j'ai essayée ton code mais cela ne conviens pas... mon image de picturebox1 ne se déplace plus sur mon picturebox2....

asmduty : j'ai rajouter les options : option strict On et option explicit on

Merci de prendre le temps de me répondre...
22/02/2012, 14h20
asmduty

Tu n'es pas obligée de rajouter Option Strict On et Explicit On.
Je faisais simplement remarquer à chrismonoye que si ces options sont actives, le Ctype n'est pas inutile.
22/02/2012, 14h31
Audrey43

ah daccord ... j'avais mal compri

merci asmduty

voici le code complet qui n'est pas de moi et que j'ai adapté à ton cas.
Il fonctionne très bien sur mon pc... :

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
36
37
38
39
40
41
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Me.PictureBox2.AllowDrop = True
        AddHandler PictureBox1.MouseDown, AddressOf pictureBox_MouseDown
        AddHandler PictureBox2.DragDrop, AddressOf pictureBox_DragDrop
        AddHandler PictureBox2.DragEnter, AddressOf pictureBox_DragEnter
 
    End Sub
 
    Private Sub pictureBox_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
 
        Dim btnPic As PictureBox = CType(sender, PictureBox)
        btnPic.DoDragDrop(btnPic.Image, DragDropEffects.Link)
 
    End Sub
 
    Private Sub pictureBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs)
 
        If e.Data.GetDataPresent(DataFormats.Bitmap) Then
            e.Effect = DragDropEffects.Link
        Else
            e.Effect = DragDropEffects.None
        End If
 
    End Sub
 
    Private Sub pictureBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
 
        Dim picbox As PictureBox = CType(sender, PictureBox)
        Dim g As Graphics
        g = Graphics.FromImage(picbox.Image)
        g.DrawImage(CType(e.Data.GetData(DataFormats.Bitmap), Image), New Rectangle(20, 10, 100, 100))
        picbox.Invalidate()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        PictureBox2.Image.Save(Application.StartupPath & "\nom_fichier.Jpeg")
 
    End Sub

Je te conseille vivement de mettre option Strict sur On, pour prendre les bonnes habitudes de codage.

22/02/2012, 20h55
Audrey43

Encore merci chrismonoye de prendre de ton temps pour m'aider :)

malheureusement ton code ne marche pas chez moi, j'ai même recommencé un nouveau projet avec seulement le code que tu ma donner et "Option Strict On

Imports System.Drawing.Imaging
Imports System.Drawing" au début mais cela ne fonctionne pas chez moi ....

lorsque je prends mon image de picturebox1 pour la mettre sur le picturebox2 rien ne se passe ... elle n'est pas déplacée... :(

Je sais pas si j'ai oublié quelque chose... qui ferais que ça ne marche pas ?
22/02/2012, 21h28
Audrey43

ça maaaaaaaarche !!

Je viens de trouver ou étais mon probléme ...
je travail avec des fichiers image.TIF dans mon picturebox2
j'ai fais un test avec une image bitmap (.bmp) et la ça marches parfaitement...
le probléme venais donc du format de l'image ... :roll:

je recherche si il n'y a pas une solution pour conserver ce format d'image ... et de pouvoir travailler sur des .tif
si je pouvais éviter de convertir toutes mes images tif... en bitmap :? e

en tout cas merci beaucoup !!! :D
22/02/2012, 22h47
chrismonoye

Content que ça marche déjà.

Quant aux options Strict et Explicit sur On, c'est une règle générale à adopter pour tous tes projets.

Pour les fichiers .tif, c'est bizarre, j'ai testé et je ne rencontre pas de problème...
MSDN donne ces formats

Citation:

GDI+ prend en charge les formats de fichiers suivants : BMP, GIF, EXIG, JPG, PNG et TIFF.

Alors je ne vois pas.
23/02/2012, 09h40
Audrey43

bonjour, chrismonoye

j'ai fais plusieurs test : avec des images format .jpg .bmp ça marche... mais pas avec mes fichiers .TIF

c'est bisard... :roll:

merci pour ton aide
24/02/2012, 14h41
Audrey43

Bonjour,

Je viens d'effectuer plusieurs test. Le probléme ne viens pas du code (de chrismonoye), il fonctionne parfaitement.

C'est bien un probléme de l'image que j'utilise dans mon picturebox2
j'ai même fais le test de prendre une image .tif différente et cela marche parfaitement.

Le probléme viens donc de mon image qui semble être "interdite de modification", mais je ne sais pas trop pourquoi ...

Il suffit que j'ouvre cette image et la réenregistre sous l'extention .tif et ça marche... bisard bisard :roll:

Est-il Possible de "convertir" une image sous une autre extention a son ouverture dans le picturebox ?

Sinon je convertirai moi même mes images afin de pouvoir les ouvrir et modifier dans mon appli...

En tout cas mon premier probléme et résolu. Merci Beaucoup !:D