在VB.NET中实现文件拖放
2005-03-17 09:22
459 查看
在VB.NET中实现文件拖放
本文介绍了在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,
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 Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
Application.RemoveMessageFilter(Me)
DragAcceptFiles(TextBox1.Handle.ToInt32, False)
MyBase.Dispose(disposing)
End Sub
注意:拖放结束后,调用DragFinish释放内存。
参考:
ms-help://MS.VSCC/MS.MSDNVS.2052/cpref/html/frlrfsystemwindowsformsimessagefilterclasstopic.htm
----------------------------------------------
段落格式 普通格式标题 1标题 2标题 3标题 4标题 5标题 6标题 7已编排格式地址
字体宋体黑体楷体仿宋隶书幼圆新宋体细明体ArialArial
本文介绍了在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,
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 Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
Application.RemoveMessageFilter(Me)
DragAcceptFiles(TextBox1.Handle.ToInt32, False)
MyBase.Dispose(disposing)
End Sub
注意:拖放结束后,调用DragFinish释放内存。
参考:
ms-help://MS.VSCC/MS.MSDNVS.2052/cpref/html/frlrfsystemwindowsformsimessagefilterclasstopic.htm
----------------------------------------------
段落格式 普通格式标题 1标题 2标题 3标题 4标题 5标题 6标题 7已编排格式地址
字体宋体黑体楷体仿宋隶书幼圆新宋体细明体ArialArial
相关文章推荐
- 在VB.NET中实现文件的拖放
- 在VB.NET中实现文件的拖放
- 在VB.NET中实现文件的拖放
- 【搬运】VB.NET实现文件拖放功能
- [VB.NET]VB.NET下如何用结构和类实现文件的读取?
- vb.net2005里 webclient实现文件下载
- VB.Net实现文件合并的实例
- VB.net类库中应用log4net实现日志记录(文件形式)
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- 在VB.NET中实现拖放操作 DragDrop
- VB.NET客户端调用Axis的Java Web Service实现文件上传
- VB.net实现双击文件启动软件并打开文件
- 用vb.net实现拖放功能
- [VB.Net]文件拖放示例
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- [VB.NET]用vb.net实现QQ传送文件的功能!~急用!!!!!!
- ajax传值到ASP.NET的aspx文件后台代码实现(VB)
- VB.NET 窗体实现拖拽文件
- 在VB.NET中实现拖放操作
- 在VB.NET中实现拖放操作