在VB.NET中实现文件拖放
<p >本文介绍了在VB.NET中如何实现接受拖放的文件，即从资源管理器中拖放到应用程序中的时候，自动获取拖放的文件。文中的例子是一个接受拖放文件显示文件内容的VB.NET实例程序。<p >对于文本格式的文件，我们可以直接拖到记事本中就可以看到内容；各种类型的图片，拖到Photoshop中，就可以直接对其编辑。我们如何在VB.NET开发的程序也实现上述效果呢？<p ><b>思路：</b><p >我们知道，每一个Windows的应用程序都有一个消息队列，程序的主体接受系统的消息，然后分发出去（给一个form，或者一个控件），接受者有相应的程序来处理消息。在.NET的Form中，默认情况下程序是不翻译这些消息的，也就是说默认我们的Class是不加入应用程序的消息泵。能不能把我们的Form Class加入应用程序的消息泵呢？可以！<p >在.NET中，任何一个实现IMessageFilter 接口的类，可以添加到应用程序的消息泵中，以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作。使用 Application 类中的 AddMessageFilter 方法，可以将消息筛选器添加到应用程序的消息泵中。<p >于是我们在程序加载的时候，调用Application.AddMessageFilter(Me)。然而，默认情况下一个Form或者控件是不能接受拖放的文件的，我们调用一个WIN32 API DragAcceptFiles，这个API可以设置对应的控件是否能接受拖放的文件。然后可以用DragQueryFile查询拖放到的文件列表，也就是拖放文件地具体路径和文件名。<p ><b>代码：</b><p ><ccid_nobr><table width="550" border="1" cellspacing="0" cellpadding="2" bordercolorlight = "black" bordercolordark = "#FFFFFF" align="center"><tr><td bgcolor="e6e6e6" class="code"><pre><ccid_code>Imports System.Runtime.InteropServicesPublic Class Form1Inherits System.Windows.Forms.FormImplements 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 IntegerEnd 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 SubFunction PreFilterMessage(ByRef m As Message) As Boolean ImplementsIMessageFilter.PreFilterMessageIf m.Msg = WM_DROPFILES Then '设置拖放的动作 Dim nfiles As Int16nfiles = 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, ystem.Text.Encoding.GetEncoding("gb2312")) TextBox1.AppendText(ControlChars.CrLf & sr.ReadToEnd().ToString) fs.Close() sr.Close() End If Return FalseEnd FunctionProtected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing ThenIf Not (components Is Nothing) Thencomponents.Dispose() End IfEnd If Application.RemoveMessageFilter(Me)DragAcceptFiles(TextBox1.Handle.ToInt32, False) MyBase.Dispose(disposing)End Sub</ccid_code></pre></td></tr></table></ccid_nobr><p >注意：拖放结束后，调用DragFinish释放内存。<p ><b>参考：</b><p >ms-help://MS.VSCC/MS.MSDNVS.2052/cpref/html/frlrfsystemwindowsformsimessagefilterclasstopic.htm<p >（责任编辑 <ccid_nobr>Sunny</ccid_nobr>） <p align="center"></p></p>
页:
[1]