代码之家 › 专栏 › 技术社区 › swabygw

WPF拖放自定义类

drag-and-drop vb.net wpf

swabygw · 技术社区 · 8 年前

我这样开始操作:

Public Sub cLinkOut_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    'Trace.WriteLine("mousedown: " & ObjectKey)
    DragDrop.DoDragDrop(TryCast(Me, CellContainer), ObjectKey, DragDropEffects.All)
    e.Handled = True
End Sub

“Me”是一个名为CellContainer的自定义类,它实际上是一个具有附加属性的画布。

我这样处理跌落:

Public Sub cLinkIn_Drop(ByVal sender As Object, ByVal e As DragEventArgs)
    Dim cSource As String = e.Data.GetData(DataFormats.StringFormat)
    Dim cTarget As String = TryCast(e.OriginalSource, CellContainer).ObjectKey
    Trace.WriteLine("srce: " & cSource & ", targ: " & cTarget)
    e.Handled = True
End Sub

问题是e.OriginalSource显示为画布,而不是CellContainer,并且cTarget设置为Nothing。如何将整个CellContainer(不仅仅是ObjectKey)从拖放传递到拖放?

1 回复 | 直到 8 年前

swabygw 8 年前

解决方法如下:

Public Sub cLinkOut_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    Dim data As DataObject = New DataObject(DataFormats.Serializable, Me)
    DragDrop.DoDragDrop(CType(e.Source, DependencyObject), data, DragDropEffects.Copy)
    e.Handled = True
End Sub

Public Sub cLinkIn_Drop(ByVal sender As Object, ByVal e As DragEventArgs)
    Dim c As CellContainer = CType(e.Data.GetData(DataFormats.Serializable), CellContainer)
    Dim cSource As String = c.ObjectKey
    Dim cTarget As String = Me.ObjectKey
    Trace.WriteLine("srce: " & cSource & ", targ: " & cTarget)
    e.Handled = True
End Sub

推荐文章

Mear1628 · vb.net从随机选择的端口号接收UDP

1 年前

user1946932 · .Net正则表达式在所有字符前添加空格

1 年前

Xavier Junqué · 可能的VB.NET错误:位移位和幂运算符的行为不一致

1 年前

user1946932 · 正则表达式:删除连续两个以上的<br>?

1 年前

Nor · VB.net-如何在读取后正确关闭文本文件,以便在同一应用程序中打开进行写入

1 年前

Josh · 通过反思访问孩子的财产

1 年前

Khu RJ · 更新网格中的单元格-DevExpress网格控件

1 年前

John89 · MouseHook-MSLLHOOKSTRUCT.mouseData在处理MouseWheel时总是返回相同的值

1 年前

Mick · VB.NET Regex。替换不起作用(数组未更新)

1 年前

SoundWaves · 通过IP从asp.net Web表单使用ESC/P打印到Brother P-Touch

1 年前