知识大全 在VB.NET中实现文件的拖放

Posted 文件

篇首语:书到用时方恨少,事非经过不知难。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 在VB.NET中实现文件的拖放相关的知识,希望对你有一定的参考价值。

在VB.NET中实现文件的拖放  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言

  对于文本格式的文件 我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢?

  思路

  我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去(给一个form 或者一个控件) 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢?可以!

  在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中

  于是我们在程序加载的时候 调用Application AddMessageFilter(Me) 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名

  代码

  Imports System Runtime InteropServices

  Public Class Form

  Inherits System Windows Forms Form

  Implements IMessageFilter

   API申明

  Const WM_DROPFILES = &H   拖放文件消息

  <DllImport( shell dll )> Public Shared Sub DragFinish(ByVal hDrop As Integer)

  End Sub

  <DllImport( shell dll )> Public Shared Sub DragAcceptFiles(ByVal hwnd As Integer ByVal fAccept As Boolean)

  End Sub

  <DllImport( shell 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 Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load

  Application AddMessageFilter(Me)

  DragAcceptFiles(TextBox Handle ToInt True)

  End Sub

  Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter PreFilterMessage

  If m Msg = WM_DROPFILES Then

   设置拖放的动作

  Dim nfiles As Int

  nfiles = DragQueryFile(m WParam ToInt Nothing )

  Dim i As Int

  Dim sb As New System Text StringBuilder( )

  Dim sFirstFileName As String 记录第一个文件名

  TextBox Clear()

  For i = To nfiles

  DragQueryFile(m WParam ToInt i sb )

  If i = Then sFirstFileName = sb ToString

  TextBox AppendText(ControlChars CrLf & sb ToString)

  Next

  DragFinish(m WParam ToInt ) 拖放完成

   显示文件内容

  Dim fs As New System IO FileStream(sFirstFileName IO FileMode Open)

  Dim sr As New System IO StreamReader(fs System Text Encoding GetEncoding( gb ))

  TextBox AppendText(ControlChars CrLf & sr ReadToEnd() ToString)

  fs Close()

  sr Close()

  End If

  Return False

  End Function

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

  If disposing Then

  If Not (ponents Is Nothing) Then

  ponents Dispose()

  End If

  End If

  Application RemoveMessageFilter(Me)

  DragAcceptFiles(TextBox Handle ToInt False)

  MyBase Dispose(disposing)

  End Sub

cha138/Article/program/net/201311/13043

相关参考

知识大全 在VB.NET中检索文件信息

在VB.NET中检索文件信息  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  您是否曾经希望了解如

知识大全 VB.NET中监视文件夹的变化

VB.NET中监视文件夹的变化  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!有时候处于业务的需要我

知识大全 VB.NET读写文本文件方法

VB.NET读写文本文件方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  工作需要小编需要使用

知识大全 罕见的VB.NET复制删除文件完整示例

罕见的VB.NET复制删除文件完整示例  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  有些人认为

知识大全 VB.NET将任意图像文件设置为鼠标形状

VB.NET将任意图像文件设置为鼠标形状  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  VBNE

知识大全 VB.NET读取INI文件设置信息函数sdGetIniInfo

VB.NET读取INI文件设置信息函数sdGetIniInfo  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来

知识大全 vb.net通过app.config来改变编译路径

  问题:我先把我的意思讲一遍:假如把一个A工程编译后:会在Debug目录中生成以下文件:AExeApdbAxml引用的mondll我在制作setup文件后我想生成一个这样的目录:A目录中:bin\\

知识大全 VB.NET拷贝整个目录下所有子目录及文件的实例代码

VB.NET拷贝整个目录下所有子目录及文件的实例代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

在Wndows资源管理器中,按住__键的同时,用鼠标将选定的文件拖放至同一驱动器的另一文件夹中,可以实现该文件的复

在Wndows资源管理器中,按住_____键的同时,用鼠标将选定的文件拖放至同一驱动器的另一文件夹中,可以实现该文件的复制。A、ShiftB、空格C、AltD、Ctrl答案:D解析:在同一个系统盘下,

知识大全 实现应用程序的文件拖放功能

  在Delphi中有许多控件支持拖放操作但仅限于应用程序内部而不能实现从Windows环境里向应用程序拖放文件本文将要介绍的就是如何用Delphi编写支持文件拖放的应用程序由于主要使用Windows