WPF Drag and Drop example: using vb.net 2010
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d" x:Class="mofakfree" Title="drop test " Height="359" Width="329"> <Grid> <Label x:Name="label2" AllowDrop="True" Margin="159,30,12,0" Background="#FF1900FF" Content="To Here" DragEnter="label2_DragEnter" Drop="label2_Drop" Height="51" VerticalAlignment="Top" /> <Label x:Name="label1" AllowDrop="True" Margin="26,30,158,240" Background="#FFDE2626" Content="source" MouseDown="label1_MouseDown"/> </Grid> </Window>
vb.net code:
Class mofakfree Private Sub label1_MouseDown(ByVal sender as Object, ByVal e as System.Windows.Input.MouseButtonEventArgs) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Dim lbl As Label = CType(sender, Label) DragDrop.DoDragDrop(lbl, lbl.Content, DragDropEffects.Copy) End Sub Private Sub label2_DragEnter(ByVal sender as Object, ByVal e as System.Windows.DragEventArgs) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx If e.Data.GetDataPresent(DataFormats.Text) Then e.Effects = DragDropEffects.Copy Else e.Effects = DragDropEffects.None End If End Sub Private Sub label2_Drop(ByVal sender as Object, ByVal e as System.Windows.DragEventArgs) 'xxxxxxxxxxxxxxxxxx CType(sender, Label).Content = e.Data.GetData(DataFormats.Text) End Sub End Class
Mwaffak jamal zakariya
source share