[Mono-bugs] [Bug 551734] New: Treeview.DoDragDrop has no effect!

[bugzilla_noreply at novell.com]

http://bugzilla.novell.com/show_bug.cgi?id=551734


           Summary: Treeview.DoDragDrop has no effect!
    Classification: Mono
           Product: Mono: Class Libraries
           Version: 2.4.x
          Platform: i686
        OS/Version: openSUSE 11.2
            Status: NEW
          Severity: Normal
          Priority: P5 - None
         Component: Windows.Forms
        AssignedTo: mono-bugs at lists.ximian.com
        ReportedBy: jhmgbl2 at t-online.de
         QAContact: mono-bugs at lists.ximian.com
          Found By: ---


This code does not drag anything:

Private Sub clsTVItemDrag(ByVal sender As Object, ByVal e As
System.Windows.Forms.ItemDragEventArgs) Handles Me.ItemDrag
    Dim n As TreeNode = DirectCast(e.Item, TreeNode)
    Dim filePaths(0) As String
    Dim DragDropEffect As DragDropEffects
    Dim data As DataObject

    filePaths(0) = n.Name

    If filePaths.Length > 0 Then
      data = New DataObject(Windows.Forms.DataFormats.FileDrop, filePaths)

      DragDropEffect = Me.DoDragDrop(data, DragDropEffects.Copy Or
DragDropEffects.Move)
      If _HighlightedNode Is Nothing = False Then
        _HighlightedNode.BackColor = System.Drawing.Color.White
      End If
      If DragDropEffect = DragDropEffects.Move Then
        RaiseEvent DeleteFiles(n, New DeleteFilesEventArgs(filePaths))

      End If
    End If
  End Sub

-- 
Configure bugmail: http://bugzilla.novell.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the QA contact for the bug.
You are the assignee for the bug.