本文介绍了在VBNET中如何实现接受拖放的文件即从资源管理器中拖放到应用程序中的时候自动获取拖放的文件文中的例子是一个接受拖放文件显示文件内容的VBNET实例程序引言
对于文本格式的文件我们可以直接拖到记事本中就可以看到内容各种类型的图片拖到Photoshop中就可以直接对其编辑我们如何在VBNET开发的程序也实现上述效果呢？
思路
我们知道每一个Windows的应用程序都有一个消息队列程序的主体接受系统的消息然后分发出去（给一个form或者一个控件）接受者有相应的程序来处理消息在NET的Form中默认情况下程序是不翻译这些消息的也就是说默认我们的Class是不加入应用程序的消息泵能不能把我们的Form Class加入应用程序的消息泵呢？可以！
在NET中任何一个实现IMessageFilter 接口的类可以添加到应用程序的消息泵中以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作使用 Application 类中的 AddMessageFilter 方法可以将消息筛选器添加到应用程序的消息泵中
于是我们在程序加载的时候调用ApplicationAddMessageFilter（Me）然而默认情况下一个Form或者控件是不能接受拖放的文件的我们调用一个WIN API DragAcceptFiles源码天空这个API可以设置对应的控件是否能接受拖放的文件然后可以用DragQueryFile查询拖放到的文件列表也就是拖放文件地具体路径和文件名
代码
Imports SystemRuntimeInteropServices
Public Class Form
Inherits SystemWindowsFormsForm
Implements IMessageFilter
API申明
Const WM_DROPFILES = &H 拖放文件消息
<DllImport（shelldll）> Public Shared Sub DragFinish（ByVal hDrop As Integer）
End Sub
<DllImport（shelldll）> Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）
End Sub
<DllImport（shelldll）> Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As SystemTextStringBuilder ByVal ch As Integer） As Integer
End Function
Private Sub Form_Load（ByVal sender As SystemObject ByVal e As SystemEventArgs） Handles MyBaseLoad
ApplicationAddMessageFilter（Me）
DragAcceptFiles（TextBoxHandleToInt True）
End Sub
Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilterPreFilterMessage
If mMsg = WM_DROPFILES Then
设置拖放的动作
Dim nfiles As Int
nfiles = DragQueryFile（mWParamToInt Nothing ）
Dim i As Int
Dim sb As New SystemTextStringBuilder（）
Dim sFirstFileName As String 记录第一个文件名
TextBoxClear（）
For i = To nfiles
DragQueryFile（mWParamToInt i sb ）
If i = Then sFirstFileName = sbToString
TextBoxAppendText（ControlCharsCrLf & sbToString）
Next
DragFinish（mWParamToInt） 拖放完成
显示文件内容
Dim fs As New SystemIOFileStream（sFirstFileName IOFileModeOpen）
Dim sr As New SystemIOStreamReader（fs SystemTextEncodingGetEncoding（gb））
TextBoxAppendText（ControlCharsCrLf & srReadToEnd（）ToString）
fsClose（）
srClose（）
End If
Return False
End Function
Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）
If disposing Then
If Not （components Is Nothing） Then
componentsDispose（）
End If
End If
ApplicationRemoveMessageFilter（Me）
DragAcceptFiles（TextBoxHandleToInt False）
MyBaseDispose（disposing）
End Sub
注意拖放结束后调用DragFinish释放内存
