- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]VB.NET 窗体拖入文件 求能改为狐表用的代码[已解决]] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40526)
-- 发布时间：2013/9/22 18:54:00
-- [求助]VB.NET 窗体拖入文件 求能改为狐表用的代码[已解决]]
首先应设置 Form 的 AllowDrop 属性为 True
以下代码实现了拖入对象类型判断,显示拖入文件名称..
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop, False)
For Each srcfile As String In files
MsgBox(srcfile)
Next
End Sub
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
[此贴子已经被作者于2013-9-22 22:00:58编辑过]
-- 发布时间：2013/9/22 19:11:00
--
可以，参考下面的例子做。
[此贴子已经被作者于2013-9-22 19:11:41编辑过]
-- 发布时间：2013/9/22 20:56:00
--
谢谢，有点甜！
我再调试一下！
非常感谢您！
-- 发布时间：2013/9/22 22:00:00
--
终于解决了，谢谢“有点甜”