Drapdrop的一般用法

首先要设置某控件的AllowDrapdrop属性为True

然后利用控件的MouseDown事件激活Drapdrop

　　Private Sub 事件函数名(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控件.MouseDown
　　　　If e.Button = Windows.Forms.MouseButtons.Left Then
　　　　　　控件.DoDragDrop(Data, 操作类型)
　　　　End If
　　End Sub

在目标控件的DrapEnter、DrapOver、Drapdrop、Drapdrop事件编写相应的程序代码，这里就简单的写些代码

　　Private Sub Button1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragEnter
　　　　e.Effect = DragDropEffects.All
　　End Sub

　　Private Sub Button1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragOver
　　　　e.Effect = DragDropEffects.All
　　End Sub

 

    Private Sub Button1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop, False) Then
            Dim b As Object = e.Data.GetData(DataFormats.FileDrop)
        Else
            Dim b() As String = e.Data.GetFormats
        End If
    End Sub

 

 

注意：

GetDataPresent 可以判断数据是否程序所需要的数据类型

GetFormats 返回一个字符串数组，里面包含了所拖放的数据的可转换类型

GetData 返回的虽然是Object，但是一般情况下这个Object类型其实是拖放数据的一维数组

 

 

 

进阶：

当调用控件的DoDrapdrop方法后，就会激活GiveFeedback事件，在该事件里可以设置是否显示鼠标的默认显示样式。

Cursor是鼠标的显示图标。可以新建一个Cursor类来表示你要设置的鼠标样式。

一般做法是新建一个Bitmap，然后获取Bitmap的句柄，再把句柄交给新建的Cursor类。