Drag And Drop Image

Bonjour à tous,

J'aimerai faire un drag and drop d'image en vb.net cependant je n'y arrive pas :'(

Voila ce que j'ai :

Code:

1
2
3
4
5
6
7
 
<Canvas Width="75" Height="107" AllowDrop="True"  Background="Aqua" Name="destination" Margin="296,103,348,275" Drop="DropMethode"  >
        </Canvas>
 
        <Canvas Width="75" Height="107"  Name="carte1" Margin="40,305,444,73" >
            <Image Width="75" Height="107" Source="Images/back_red.png" Name="ImageCarte1" />
  </Canvas>

Donc je veux que l'image "ImageCarte1" puisse être glissée sur le canvas "destination" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
  Private Sub DragImage(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
        Dim image As Image = TryCast(e.Source, Image)
        Dim data As New DataObject(GetType(ImageSource), image.Source)
        DragDrop.DoDragDrop(image, data, DragDropEffects.Copy)
    End Sub
 
 
 
    Private Sub DropImage(ByVal sender As Object, ByVal e As DragEventArgs)
        Dim image As ImageSource = TryCast(e.Data.GetData(GetType(ImageSource)), ImageSource)
        Dim imageControl As New Image()
        imageControl.Width = image.Width
        imageControl.Height = image.Height
        imageControl.Source = image
        Me.destination.Children.Add(imageControl)
    End Sub

Mais ça ne marche pas, ça me met le curseur de la souris comme si je glissais déposait, sauf que aucun carte s'affiche lors du mouvement, et lorsque je relâche sur le canvas de destination la carte reste au canvas de départ

Commet faire ? :/

Merci :)

Private Sub DragImage(ByVal sender As Object, ByVal e As MouseButtonEventArgs) Dim image As Image = TryCast(e.Source, Image) Dim data As New DataObject(GetType(ImageSource), image.Source) DragDrop.DoDragDrop(image, data, DragDropEffects.Copy) image.Visibility = Windows.Visibility.Hidden End Sub Private Sub DropImage(ByVal sender As Object, ByVal e As DragEventArgs) Dim imageControl As New Image() Dim image As ImageSource = TryCast(e.Data.GetData(GetType(ImageSource)), ImageSource) imageControl.Width = image.Width imageControl.Height = image.Height imageControl.Source = image 'Canvas.SetLeft(imageControl, e.GetPosition(Me.Destination).X) 'Canvas.SetTop(imageControl, e.GetPosition(Me.Destination).Y) Me.Destination.Children.Add(imageControl) End Sub