VB.NET笔记实现文件拖拽到窗体

最新推荐文章于 2023-08-29 16:15:20 发布

rea-zhuang

最新推荐文章于 2023-08-29 16:15:20 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.NET

本文链接：https://blog.youkuaiyun.com/StupidZhuang/article/details/80187565

VB.NET 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个简单的Windows窗体应用程序中实现文件拖放功能的方法。通过设置AllowDrop属性为True启用拖放，并使用DragEnter和DragDrop事件处理程序来接收和处理拖放的文件路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AllowDrop = True
End Sub
''建拖曳事件，实现文件拖放
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
Dim filepath As String() = e.Data.GetData(DataFormats.FileDrop)
For Each File As String In filepath
textBox1.Text = File
Next
'textBox1.text=filepath(0) 这里还可以这样实现
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub