如何用实例分析VB.NET拖放文件

如何用实例分析VB.NET拖放文件，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

VB.NET还是比较常用的，于是我研究了一下VB.NET拖放文件，下面介绍在VB.NET中如何实现接受VB.NET拖放文件。

自从资源管理器中拖放到应用程序中的时候，自动获取VB.NET拖放文件。文中的例子是一个接受VB.NET拖放文件显示文件内容的VB.NET实例程序。

对于文本格式的文件，我们可以直接拖到记事本中就可以看到内容；各种类型的图片，拖到Photoshop中，就可以直接对其编辑。我们如何在VB.NET开发的程序也实现上述效果呢？

我们知道，每一个Windows的应用程序都有一个消息队列，程序的主体接受系统的消息，然后分发出去（给一个form，或者一个控件），接受者有相应的程序来处理消息。在.NET的Form中，默认情况下程序是不翻译这些消息的，也就是说默认我们的Class是不加入应用程序的消息泵。能不能把我们的Form Class加入应用程序的消息泵呢？可以！

在.NET中，任何一个实现IMessageFilter 接口的类，可以添加到应用程序的消息泵中，以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作。使用 Application 类中的 AddMessageFilter 方法，可以将消息筛选器添加到应用程序的消息泵中。

于是我们在程序加载的时候，调用Application.AddMessageFilter(Me)。然而，默认情况下一个Form或者控件是不能接受VB.NET拖放文件的，我们调用一个WIN32 API DragAcceptFiles，这个API可以设置对应的控件是否能接受VB.NET拖放文件。然后可以用DragQueryFile查询拖放到的文件列表，也就是VB.NET拖放文件地具体路径和文件名。

Imports System.Runtime.InteropServices  
Public Class Form1  
Inherits System.Windows.Forms.Form  
Implements IMessageFilter  
'API申明  
Const WM_DROPFILES = &H233‘拖放文件消息  
<DllImport("shell32.dll")> Public Shared Sub DragFinish(ByVal hDrop As Integer)  
End Sub  
<DllImport("shell32.dll")> Public Shared Sub DragAcceptFiles
(ByVal hwnd As Integer, ByVal fAccept As Boolean)  
End Sub  
<DllImort("shell32.dll")> Public Shared Function DragQueryFile(ByVal HDROP As Integer, 
ByVal UINT As Integer, ByVal lpStr As System.Text.StringBuilder, ByVal ch As Integer) As Integer  
End Function  
Private Sub Form1_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load  
Application.AddMessageFilter(Me)  
DragAcceptFiles(TextBox1.Handle.ToInt32, True)  
End Sub  
Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage  
If m.Msg = WM_DROPFILES Then  
'设置拖放的动作  
Dim nfiles As Int16  
nfiles = DragQueryFile(m.WParam.ToInt32, -1, Nothing, 0)  
Dim i As Int16  
Dim sb As New System.Text.StringBuilder(256)  
Dim sFirstFileName As String '记录***个文件名  
TextBox1.Clear()  
For i = 0 To nfiles - 1  
DragQueryFile(m.WParam.ToInt32, i, sb, 256)  
If i = 0 Then sFirstFileName = sb.ToString  
TextBox1.AppendText(ControlChars.CrLf & sb.ToString)  
Next  
DragFinish(m.WParam.ToInt32) '拖放完成  
'显示文件内容  
Dim fs As New System.IO.FileStream(sFirstFileName, IO.FileMode.Open)  
Dim sr As New System.IO.StreamReader(fs, System.Text.Encoding.GetEncoding("gb2312"))  
TextBox1.AppendText(ControlChars.CrLf & sr.ReadToEnd().ToString)  
fs.Close()  
sr.Close()  
End If  
Return False  
End Function  
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) Then  
components.Dispose()  
End If  
End If  
Application.RemoveMessageFilter(Me)  
DragAcceptFiles(TextBox1.Handle.ToInt32, False)  
MyBase.Dispose(disposing)  
End Sub 

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。