Получить полный путь перетаскиваемого на форму файла - Visual Basic .NET
Формулировка задачи:
Подскажите как сделать следующее. 1. Всё пространство формы способно принимать файл. 2. Получить полный путь перетащенного.
Решение задачи: «Получить полный путь перетаскиваемого на форму файла»
textual
Листинг программы
Public Class Form1 Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop For Each oneFile As String In e.Data.GetData(DataFormats.FileDrop) ' ну мы же тащим файл. Кстати, если потащить папку, то выдаст путь к папке. Если кучу файлов - количество сообщений будет соответствующим MsgBox(oneFile) Next oneFile 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) = True) Then e.Effect = DragDropEffects.Copy ' это всего лишь вид значка курсора, выбирается из списка End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AllowDrop = True ' т.к. по-умолчанию установлено False, а нам надо на нее таскать End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д