在VB.NET中实现文件的拖放

原创 2003年02月24日 09:08:00

VB.NET中实现文件的拖放

Montaque

摘要

       本文介绍了在VB.NET中如何实现接受拖放的文件,即从资源管理器中拖放到应用程序中的时候,自动获取拖放的文件。文中的例子是一个接受拖放文件显示文件内容的VB.NET实例程序。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

引言:

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

思路:

       我们知道,每一个Windows的应用程序都有一个消息队列,程序的主体接受系统的消息,然后分发出去(给一个form,或者一个控件),接受者有相应的程序来处理消息。在.NETForm中,默认情况下程序是不翻译这些消息的,也就是说默认我们的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)

            fs.Close()

            sr.Close()

 

        End If

        Return False

End Function

Protected 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

在VB.NET中实现文件拖放

               在VB.NET中实现文件拖放                            本文介绍了在VB.NET中如何实现接受拖放的文件,即从资源管理器中拖放到应用程序中的时...
  • wxx66666
  • wxx66666
  • 2005年03月17日 09:22
  • 782

VB.NET中实现Drop拖放功能

在VB.NET中实现拖放操作 Implementing Drag and Drop in Visual Basic .NET Steve Hoag Visual Basic® .NET Team...
  • shuicaohui5
  • shuicaohui5
  • 2012年03月19日 15:20
  • 1206

VirtualBox 实现主机和虚拟机的拖放文件

1、运行虚拟机ubuntu后,在这个窗口的设备(Devices)菜单下有一个安装增强功能(Intall Guest Additions) 选项,单击它. 这样virtualbox就把VBoxGuest...
  • fwydone
  • fwydone
  • 2014年12月19日 14:18
  • 2796

vb.net 实现无标题栏窗体拖拽功能

'较好用,没有闪动   Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Bool...
  • haoduo123456789001
  • haoduo123456789001
  • 2016年04月27日 09:32
  • 1310

在VB.NET中实现拖放操作

第一次在csdn上发文章,希望大家帮忙使劲顶,鼓励一下新手,谢谢http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_...
  • nfs21cn
  • nfs21cn
  • 2004年03月04日 10:06
  • 993

在VB.NET中实现拖放操作 DragDrop

绪论 用户一般分为两类:一类习惯用键盘操作,一类习惯用鼠标操作。程序员们在编程时一般会提供快捷键或快捷方式来照顾到那些习惯键盘的用户,但是那些鼠标用户却被忽略了。因为程序员们一般都习惯用键盘,所以他...
  • shuicaohui5
  • shuicaohui5
  • 2012年02月29日 17:23
  • 2054

如何使用HTML5进行文件拖放

实现将文件从桌面直接拖放到浏览器中是web应用开发的终极目标之一,本文作为接下来四篇文章的第一篇将解决以下问题: 1.实现将一个文件拖放到一个页面元素上 2.在JavaScript中分析拖放的...
  • goitcast
  • goitcast
  • 2012年08月27日 09:13
  • 1767

[VB.Net]文件拖放示例

很简单的代码。。。仅为做个记号。。。高手路过请回。。。画一个ListView1,添加如下代码: '***************************************************...
  • tzwsoho
  • tzwsoho
  • 2010年09月27日 16:53
  • 745

WPF实现拖拽方法

第一种方式:利用WPF的thumb控件                                                                                 ...
  • csujoke
  • csujoke
  • 2011年07月19日 23:38
  • 2052

[C#]richtextbox实现拖放

namespace WindowsFormsApplication1 { public partial class Form1 : Form { public ...
  • stu059074244
  • stu059074244
  • 2017年09月01日 09:47
  • 202
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB.NET中实现文件的拖放
举报原因:
原因补充:

(最多只允许输入30个字)