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

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

rea-zhuang

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

阅读量1.1k

点赞数

分类专栏： VB.NET

本文链接：https://blog.csdn.net/StupidZhuang/article/details/80187565

版权

VB.NET 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

 
  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