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

Question

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

我已成功允许用户将项目从桌面拖放到ListBox，但我无法允许用户将项目从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