将项目从列表框拖放到桌面

Question

我有一个ListBox控件，它包含几个显示附件（文件或目录）的项目。

我已经成功地允许用户从他们的桌面拖放项目到列表框，但我还没有能够允许用户将项目从列表框拖放到他们的桌面。

这可能吗？

Answer 1

希望这可以帮助您开始（假设列表框仅仅是一个与他们的完整路径的文件列表）：

Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown 
    Dim fileList As New Collections.Specialized.StringCollection 
    fileList.Add(ListBox1.SelectedItem.ToString) 

    Dim dataObj As New DataObject 
    dataObj.SetFileDropList(fileList) 

    ListBox1.DoDragDrop(dataObj, DragDropEffects.Copy) 
End Sub