|
本文介绍了在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 ‘拖放文件消息
<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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
