VB.NET的拖放操作

如代碼. 暫時還沒改成類的寫法.

Public Class Form1

    Private Sub Init_DragDrop()
        Me.AllowDrop = True
        AddHandler Me.DragEnter, AddressOf Obj_DragEnter
        AddHandler Me.DragDrop, AddressOf Obj_DragDrop
    End Sub

    Public Event DragEvent(ByVal msg As String)

    Private Sub Obj_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
        Dim a As String()
        Dim b As String
        a = e.Data.GetData(DataFormats.FileDrop)
        For Each b In a
            b = "myDragDrop::retNewFile:" + b
            MsgBox(b)
        Next
    End Sub

    Private Sub Obj_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) <> Nothing Then
            e.Effect = DragDropEffects.All
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Init_DragDrop()
    End Sub
End Class