【搬运】VB.NET实现文件拖放功能

你什么都不用做，直接新建一个窗体，把代码粘贴进去就行了。其实所有的标准控件都支持进行拖放操作，所以你甚至可以对一个按钮进行文件拖放。当然，一般都会使用如ListBox或TextBox控件进行拖放，可以直接打开某些文件，读取里面的数据。如果实在弄不懂，建议去多看看MSDN，虽然MSDN可能是日本友人帮我们翻译的...(^_^b)

 

 

Public Class Form1

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Dim LB As New ListBox
With LB
.Dock = DockStyle.Fill
.AllowDrop = True ' 接受拖放
AddHandler LB.DragEnter, AddressOf LB_DragEnter ' 委托拖放数据事件
AddHandler LB.DragDrop, AddressOf LB_DragDrop ' 委托数据处理事件
End With
Controls.Add(LB)
End Sub

Private Sub LB_DragDrop( ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
sender.Items.Clear() ' 清理列表
For Each s As String In e.Data.GetData(DataFormats.FileDrop) ' 循环枚举数据
sender.Items.Add(s) ' 添加到表
Next
End Sub

Private Sub LB_DragEnter( ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
e.Effect = DragDropEffects.Link ' 接受拖放数据，启用拖放效果
End Sub

End Class

 

转载于:https://www.cnblogs.com/clso/archive/2010/11/29/1891102.html