主题：[求助]VB.NET 窗体拖入文件 求能改为狐表用的代码[已解决]]

首先应设置 Form 的 AllowDrop 属性为 True   

以下代码实现了拖入对象类型判断,显示拖入文件名称..

Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim files() As String = e.Data.GetData(DataFormats.FileDrop, False)
        For Each srcfile As String In files
            MsgBox(srcfile)
        Next
    End Sub
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

谢谢，有点甜！

我再调试一下！

非常感谢您！

终于解决了，谢谢“有点甜”