Discussion :

[vincc]

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 xml :

Sélectionner tout - Visualiser dans une fenêtre à part

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 vb.net :

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 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

[vincc]

C'est bon j'ai réussi

Code vb.net :

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
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

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
<Canvas Width="75" Height="107" x:Name="Destination" AllowDrop="True" Drop="DropImage" Background="#FF539A27" />
 
        <Canvas Width="75" Height="107"  Name="carte1" Margin="40,305,444,73" >
            <Image Width="75" Height="107" Source="Images/back_red.png" Name="ImageCarte1" MouseDown="DragImage" />
        </Canvas>
        <Canvas Width="75" Height="107"  Name="carte2" Margin="100,305,444,73" >
            <Image Width="75" Height="107" Source="Images/test.png" Name="ImageCarte2" MouseDown="DragImage"/>
        </Canvas>