VB.NET 드래그 앤 드랍 구현 하기

파일 드래그 후 패널에 올렸을 때 - Drag Enter

Private Sub DragOver_OnPanel(sender As Object, e As Windows.Forms.DragEventArgs) Handles panel_upload.DragEnter

        If (e.Data.GetDataPresent(Windows.DataFormats.FileDrop)) Then

            e.Effect = DragDropEffects.Copy

        Else

            e.Effect = DragDropEffects.None

        End If

End Sub

파일 드래그 하여 올렸다 놨을 때 - Drag Drop

Private Sub DragDrop_OnPanel(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles panel_upload.DragDrop

Dim files() As String = e.Data.GetData(Forms.DataFormats.FileDrop)    

 ' files 에는 드래그 하여 올린 파일 경로들이 들어있음.

 ' ex c:\ddd\cc\cc.exe

 '    c:\ddd\cc\bb.exe .. 

End Sub