Glisser/ Déposer (couper coller) image sur image

Bonjour,

contexte : VB 2005
Listbox, ensuite picturebox.

A partir de ma listbox je fais un glisser/déposer sur ma picturebox.
Sur ma picturebox je crée alors dynamiquement une autre image plus petite.

Je souhaiterais maintenant pouvoir déplacer cette petite image tout en restant sur la grande.

Sachant que mon image principale accepte déjà le glisser/déposer provenant de la liste, est il possible malgré tout de lui faire accepter un autre glisser déposer d'une petite image ?

Aujourd'hui j'arrive à prendre l'image et à la déplacer mais elle se duplique et ne disparaît pas de l'emplacement original !

Merci pour votre aide

je pense qu'il faudrait que tu nous mettes un peu de code, au moins là où tu ajoutes l'image sur ton control

J'ai trouvé une partie de solution mais ça ne fait pas propre pour l'utilisateur :

il doit cliquer une première fois sur la nouvelle image créée ensuite seulement il peut en faire un glisser/déposer (même si le code est une destruction et une nouvelle création).

Donc si qq'n a des idées je suis preneur.

Ci-dessous le 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
        If blnDragDrop = True Then
 
            Dim imgPoint As New PictureBox
 
            imgPoint.Name = strNom
            imgPoint.ImageLocation = MDIParent1.strRepData & "\drapeau.PNG"
            imgPoint.Width = 22
            imgPoint.Height = 36
            imgPoint.Location = imgArea.PointToClient(New Point(e.X, e.Y))
            imgPoint.Parent = Me.imgArea
            Me.Controls.Add(imgPoint)
            imgPoint.Show()
            imgPoint.BringToFront()
            imgPoint.ContextMenuStrip = mnuImgPoint
 
            'AddHandler imgPoint.MouseDown, AddressOf MouseDownImage
            AddHandler imgPoint.Click, AddressOf OnClickImage
            'MsgBox("Nouvelle image : " & strNom)
 
        Else
 
            'Dim toto As Control = sender
            'MsgBox(toto.Name)
            Me.Controls(strNomImg).Dispose()
            Dim imgPoint As New PictureBox
 
            imgPoint.Name = strNomImg
            imgPoint.ImageLocation = MDIParent1.strRepData & "\drapeau.PNG"
            imgPoint.Width = 22
            imgPoint.Height = 36
            imgPoint.Location = imgArea.PointToClient(New Point(e.X, e.Y))
            imgPoint.Parent = Me.imgArea
 
            Me.Controls.Add(imgPoint)
            'imgArea.Controls.Add(imgPoint)
 
            imgPoint.Show()
            imgPoint.BringToFront()
            imgPoint.ContextMenuStrip = mnuImgPoint
 
            'AddHandler imgPoint.MouseDown, AddressOf MouseDownImage
            AddHandler imgPoint.Click, AddressOf OnClickImage
            'MsgBox("Image déplacée : " & strNomImg)
 
 
        End If

tu peux éditer ton message et rajouter les balises codes
:tagcode: