【搬运】VB.NET实现文件拖放功能

你什么都不用做，直接新建一个窗体，把代码粘贴进去就行了。其实所有的标准控件都支持进行拖放操作，所以你甚至可以对一个按钮进行文件拖放。当然，一般都会使用如ListBox或TextBox控件进行拖放，可以直接打开某些文件，读取里面的数据。如果实在弄不懂，建议去多看看MSDN，虽然MSDN可能是日本友人帮我们翻译的...(^_^b)

 

 

  
    

   
     
   
     Public
   
      
   
     Class
   
      Form1

 
   
     Private
   
      
   
     Sub
   
      Form1_Load(
   
     ByVal
   
      sender 
   
     As
   
      System.Object, 
   
     ByVal
   
      e 
   
     As
   
      System.EventArgs) 
   
     Handles
   
      
   
     MyBase
   
     .Load
 
   
     Dim
   
      LB 
   
     As
   
      
   
     New
   
      ListBox
 
   
     With
   
      LB
 .Dock 
   
     =
   
      DockStyle.Fill
 .AllowDrop 
   
     =
   
      
   
     True
   
      
   
     '
   
     接受拖放
   
     

   
      
   
     AddHandler
   
      LB.DragEnter, 
   
     AddressOf
   
      LB_DragEnter 
   
     '
   
     委托拖放数据事件
   
     

   
      
   
     AddHandler
   
      LB.DragDrop, 
   
     AddressOf
   
      LB_DragDrop 
   
     '
   
     委托数据处理事件
   
     

   
      
   
     End
   
      
   
     With
   
     
 Controls.Add(LB)
 
   
     End Sub
   
     

 
   
     Private
   
      
   
     Sub
   
      LB_DragDrop(
   
     ByVal
   
      sender 
   
     As
   
      System.Object, 
   
     ByVal
   
      e 
   
     As
   
      System.Windows.Forms.DragEventArgs)
 sender.Items.Clear() 
   
     '
   
     清理列表
   
     

   
      
   
     For
   
      
   
     Each
   
      s 
   
     As
   
      
   
     String
   
      
   
     In
   
      e.Data.GetData(DataFormats.FileDrop) 
   
     '
   
     循环枚举数据
   
     

   
      sender.Items.Add(s) 
   
     '
   
     添加到表
   
     

   
      
   
     Next
   
     
 
   
     End Sub
   
     

 
   
     Private
   
      
   
     Sub
   
      LB_DragEnter(
   
     ByVal
   
      sender 
   
     As
   
      System.Object, 
   
     ByVal
   
      e 
   
     As
   
      System.Windows.Forms.DragEventArgs)
 e.Effect 
   
     =
   
      DragDropEffects.Link 
   
     '
   
     接受拖放数据，启用拖放效果
   
     

   
      
   
     End Sub
   
     


   
     End Class