请选择 进入手机版 | 继续访问电脑版

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1625|回复: 1

VB.net – 拖放并获取文件路径

[复制链接]

497

主题

30

回帖

7170

积分

管理员

积分
7170
发表于 2020-8-11 13:01:46 | 显示全部楼层 |阅读模式
通过将 AllowDrop属性设置为True并处理 DragEnter和 DragDrop事件,才能启用drap-and-drop.
在DragEnter事件处理程序中,您可以检查数据是否是要使用DataFormats类的类型.

在DragDrop事件处理程序中,使用DataEventArgs的Data属性来接收实际数据.

例:

Private Sub Form1_Load(sender As System.Object,e As System.EventArgs) Handles MyBase.Load

    Me.AllowDrop = True

End Sub

Private Sub Form1_DragDrop(sender As System.Object,e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop

    Dim files() As String = e.Data.GetData(DataFormats.FileDrop)

    For Each path In files

        MsgBox(path)

    Next

End Sub

Private Sub Form1_DragEnter(sender As System.Object,e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter

    If e.Data.GetDataPresent(DataFormats.FileDrop) Then

        e.Effect = DragDropEffects.Copy

    End If

End Sub

回复

使用道具 举报

0

主题

3

回帖

2

积分

铜牌会员

积分
2
发表于 2020-11-10 14:21:04 来自手机 | 显示全部楼层
我只是路过打酱油的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|爱淘机论坛 ( 鲁ICP备2022040313号-4 )

GMT+8, 2024-3-28 22:29 , Processed in 0.076745 second(s), 23 queries .

Powered by 爱淘机论坛

© 2001-2023

快速回复 返回顶部 返回列表