很简单的代码。。。仅为做个记号。。。高手路过请回。。。
画一个ListView1，添加如下代码：
'**************************************************************** '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>拖放操作 '作者：TZWSOHO '欢迎访问我的<a href="https://www.jb51.cc/tag/boke/" target="_blank" class="keywords">博客</a>：http://blog.csdn.net/tzwsoho '**************************************************************** Public Class Form1 '<a href="https://www.jb51.cc/tag/yonghu/" target="_blank" class="keywords">用户</a>完成拖放操作时发生 Private Sub ListView1_DragDrop(ByVal sender As Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop For Each sFile As String In e.Data.GetData(DataFormats.FileDrop) '将拖放进来的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>至列表视图框 Dim FI As New IO.FileInfo(sFile) '<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>该<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的信息 Dim lvwItem As New ListViewItem(FI.Name) '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 lvwItem.SubItems.Add(FI.FullName) '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>路径 lvwItem.SubItems.Add(FI.Length) '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>大小 ListView1.Items.Add(lvwItem) '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>至列表视图框 Next End Sub Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load ListView1.AllowDrop = True '允许对象放下 End Sub '<a href="https://www.jb51.cc/tag/yonghu/" target="_blank" class="keywords">用户</a>将对像拖放进列表视图框时发生 Private Sub ListView1_DragEnter(ByVal sender As Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then '若拖放进来的对象是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> e.Effect = DragDropEffects.All '改变拖放操作的行为，使对象可以被复制或移动至列表视图框 End If End Sub End Class
