拖放獲取文件

Question

的路徑這裏是我不能去上班的例子。我遵循指示，但是當我嘗試將文件拖放到表單時，它不讓我，並給我不可用的光標。

這是很容易。只需通過設置AllowDrop屬性爲True使drap-and-drop和處理dragenter和的DragDrop事件。在DragEnter事件處理程序中，可以使用DataFormats類檢查數據是否是您想要的類型。在DragDrop事件處理程序，使用DataEventArgs數據屬性接收的實際數據。

例子：

Private Sub Form1_Load(sender As System.Object, _ 
         e As System.EventArgs) _ 
    Handles MyBase.Load 

    Me.AllowDrop = True 
End Sub 

Private Sub Form1_DragDrop(sender As System.Object, _ 
          e As System.Windows.Forms.DragEventArgs) _ 
    Handles Me.DragDrop 

    Dim files() As String = e.Data.GetData(DataFormats.FileDrop) 
    For Each path In files 
     MsgBox(path) 
    Next 
End Sub 

Private Sub Form1_DragEnter(sender As System.Object, _ 
          e As System.Windows.Forms.DragEventArgs) _ 
    Handles Me.DragEnter 

    If e.Data.GetDataPresent(DataFormats.FileDrop) Then 
     e.Effect = DragDropEffects.Copy 
    End If 
End Sub 

Answer 1

Imports System.IO 

Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Me.AllowDrop = True 
    End Sub 
    Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop 
     Dim theFiles() As String = CType(e.Data.GetData("FileDrop", True), String()) 
     For Each theFile As String In theFiles 
      MsgBox(theFile) 
     Next 
    End Sub 

    Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter 
     If e.Data.GetDataPresent(DataFormats.FileDrop) Then 
      e.Effect = DragDropEffects.Copy 
     End If 
    End Sub 
End Class