引言：

       对于文本格式的文件，我们可以直接拖到记事本中就可以看到内容；各种类型的图片，拖到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  ‘拖放文件消息

    <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

    <DllImport("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)

[1] [2]  下一页