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
Partager