【www.gdgbn.com--php应用】

本文介绍了在VB.NET中如何实现接受拖放的文件，即从资源管理器中拖放到应用程序中的时候，自动获取拖放的文件。文中的例子是一个接受拖放文件显示文件内容的VB.NET实例程序。
引言：
对于文本格式的文件，我们可以直接拖到记事本中就可以看到内容；各种类型的图片，拖到Photoshop中，就可以直接对其编辑。我们如何在VB.NET开发的程序也实现上述效果呢？
思路：
我们知道，每一个Windows的应用程序都有一个消息队列，程序的主体接受系统的消息，然后分发出去（给一个form，或者一个控件），接受者有相应的程序来处理消息。在.NET的Form中，默认情况下程序是不翻译这些消息的，也就是说默认我们的Class是不加入应用程序的消息泵。能不能把我们的Form Class加入应用程序的消息泵呢？可以！
在.NET中，任何一个实现IMessageFilter 接口的类，可以添加到应用程序的消息泵中，以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作。使用 Application 类中的 AddMessageFilter 方法，可以将消息筛选器添加到应用程序的消息泵中。
于是我们在程序加载的时候，调用Application.AddMessageFilter(Me)。然而，默认情况下一个Form或者控件是不能接受拖放的文件的，我们调用一个WIN32 API DragAcceptFiles，这个API可以设置对应的控件是否能接受拖放的文件。然后可以用DragQueryFile查询拖放到的文件列表，也就是拖放文件地具体路径和文件名。

代码：
Imports System.Runtime.InteropServices
Public Class Form1
Inherits System.Windows.Forms.Form
Implements IMessageFilter
" API申明
Const WM_DROPFILES = &H233 "拖放文件消息

Public Shared Sub DragFinish(ByVal hDrop As Integer)
End Sub
Public Shared Sub DragAcceptFiles(ByVal hwnd As Integer, ByVal fAccept As Boolean)

本文来源：http://www.gdgbn.com/jiaocheng/4534/