首先要设置某控件的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_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类。