(VB.Net) Drag & Drop Image

Question

Bonjour, 

            j'ai fait un petit programme de test pour faire un drag and drop d'une image dans une autre image en associant un tag.  Si quelqu'un a une solution &#224; mon probl&#232;me je serai  bien heureux.  Voici mon code et les explications qui sont associ&#233;...



' Sur ma Form, j'ai 2 picturebox. Le picturebox1 a une image d'associ&#233;. Je veux la



' dragguer (copi&#233;), dans le picturebox2 qui n'a aucune image d'associ&#233;. Mon programme



' fonctionne tr&#232;s bien. Par contre, ce que je veux vraiment faire c'est de draguer



' le PictureBox1.image + le PictureBox1.tag. Les 2 ne peuvent fonctionner 



' en m&#234;me temps. Je suis capable de copi&#233; soit un ou l'autre (.tag ou .image). 



' Ceci d&#233;pend ou je mets ma ligne d'execution.



Private 
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) _



Handles 
MyBase.Load



' Le PictureBox2 accepte le drop...


PictureBox2.AllowDrop = 
True



End 
Sub



Private 
Sub PictureBox1_MouseDown(
ByVal sender 
As 
Object, _



ByVal e 
As System.Windows.Forms.MouseEventArgs) _



Handles PictureBox1.MouseDown



' &#192; titre d'exemple, je met le mot test d'associ&#233; au Tag du PictureBox1...


PictureBox1.Tag = "Test"



' C'est ici que mon probl&#232;me ce pr&#233;sente. Lorsque mon bouton souris de



' gauche est appuy&#233;, j'associe au drag and drop du PictureBox1, l'image 



' &#224; copier, ainsi que le tag.



If e.Button = MouseButtons.Left 
Then


PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy)



' Ce qui ce passe vraiment, c'est qu'il garde en m&#233;moire cette ligne.



' Donc, quand je drag le PictureBox1 dans le PictureBox2, il ne drag



' que le tag. Je veux qu'il drag les 2 en m&#234;me temps.


PictureBox1.DoDragDrop(PictureBox1.Tag, DragDropEffects.Copy)



End 
If



End 
Sub



Private 
Sub PictureBox2_DragEnter(
ByVal sender 
As System.Object, _



ByVal e 
As System.Windows.Forms.DragEventArgs) _



Handles PictureBox2.DragEnter


e.Effect = DragDropEffects.Copy



End 
Sub



Private 
Sub PictureBox2_DragDrop(
ByVal sender 
As System.Object, _



ByVal e 
As System.Windows.Forms.DragEventArgs) _



Handles PictureBox2.DragDrop



' Les formats que le PictureBox2 accepte. Soit un bitmap et un StringFormat...


PictureBox2.Image = (e.Data.GetData(DataFormats.Bitmap))


PictureBox2.Tag = (e.Data.GetData(DataFormats.StringFormat))



End 
Sub



Private 
Sub PictureBox2_Click(
ByVal sender 
As System.Object, _



ByVal e 
As System.EventArgs) 
Handles PictureBox2.Click



' Cet &#233;v&#233;nement click sur le PictureBox2 est cr&#233;&#233; pour tester si



' Le tag est bien copi&#233; dans le PictureBox2...


Label1.Text = PictureBox2.Tag



End 
Sub

Merci d'avance pour ce petit casse t&#234;te.

cs_dragon · Answer

et c'est quoi le probl&#232;me ??? tu as un message d'erreur ??? &#231;a fais rien ???


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Convergence · Answer

Quand je fais un drag dans mon picturebox2, il drag seulement mon picturebox1.tag. Il ne drag pas mon picturebox1.image.  Ce que je veux, c'est qu'il drag ces 2 propri&#233;t&#233; en m&#234;me temps.

cs_dragon · Answer

quand tu d&#233;bute ton drag, envoi les propri&#233;t&#233; dans une varaible et quand tu drop, va chercher les propri&#233;t&#233; voulu


mais si ma m&#233;moire est bonne, le sender du dragdrop est le composant initiale, faudrais v&#233;rifi&#233;, je te dit &#231;a de m&#233;moire


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Convergence · Answer

Tu veux dire envoyer la propri&#233;t&#233; image et la propri&#233;t&#233; tag dans une m&#234;me variable ?  Mais elle ne sont pas du m&#234;me type ! Un est de type as picturebox et l'autre as string.  je crois que je n'est pas bien saisi.  Est-ce que tu as un exemple ?

cs_dragon · Answer

met un break et regarde ce qui se trouve dans le serder du drag and drop


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Convergence · Answer

D'accord,  je crois que j'ai saisi.  Je vais essayer.  Je te remercie de tes conseils.

morickno · Answer

si tu trouve la solution, j'aimerai bien tu m'en fasse part car j'aimerai aussi r&#233;ussir &#224;  faire un drag & drop image mais je n'y arrive pas 

Merci

(VB.Net) Drag & Drop Image

7 réponses

Discussions similaires