熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

在VB.NET中實現文件的拖放

2013-11-13 10:15:01  來源: .NET編程 

  本文介紹了在VBNET中如何實現接受拖放的文件即從資源管理器中拖放到應用程序中的時候自動獲取拖放的文件文中的例子是一個接受拖放文件顯示文件內容的VBNET實例程序引言

  對於文本格式的文件我們可以直接拖到記事本中就可以看到內容各種類型的圖片拖到Photoshop中就可以直接對其編輯我們如何在VBNET開發的程序也實現上述效果呢?

  思路

  我們知道每一個Windows的應用程序都有一個消息隊列程序的主體接受系統的消息然後分發出去(給一個form或者一個控件)接受者有相應的程序來處理消息NET的Form中默認情況下程序是不翻譯這些消息的也就是說默認我們的Class是不加入應用程序的消息泵能不能把我們的Form Class加入應用程序的消息泵呢?可以!

  在NET中任何一個實現IMessageFilter 接口的類可以添加到應用程序的消息泵中以在消息被調度到控件或窗體之前將它篩選出來或執行其他操作使用 Application 類中的 AddMessageFilter 方法可以將消息篩選器添加到應用程序的消息泵中

  於是我們在程序加載的時候調用ApplicationAddMessageFilter(Me)然而默認情況下一個Form或者控件是不能接受拖放的文件的我們調用一個WIN API DragAcceptFiles源碼天空這個API可以設置對應的控件是否能接受拖放的文件然後可以用DragQueryFile查詢拖放到的文件列表也就是拖放文件地具體路徑和文件名

  代碼

  Imports SystemRuntimeInteropServices

  Public Class Form

  Inherits SystemWindowsFormsForm

  Implements IMessageFilter

   API申明

  Const WM_DROPFILES = &H  拖放文件消息

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

  End Sub

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

  End Sub

  <DllImport(shelldll)> Public Shared Function DragQueryFile(ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As SystemTextStringBuilder ByVal ch As Integer) As Integer

  End Function

  Private Sub Form_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad

  ApplicationAddMessageFilter(Me)

  DragAcceptFiles(TextBoxHandleToInt True)

  End Sub

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

  If mMsg = WM_DROPFILES Then

  設置拖放的動作

  Dim nfiles As Int

  nfiles = DragQueryFile(mWParamToInt Nothing

  Dim i As Int

  Dim sb As New SystemTextStringBuilder(

  Dim sFirstFileName As String 記錄第一個文件名

  TextBoxClear()

  For i = To nfiles

  DragQueryFile(mWParamToInt i sb

  If i = Then sFirstFileName = sbToString

  TextBoxAppendText(ControlCharsCrLf & sbToString)

  Next

  DragFinish(mWParamToInt拖放完成

  顯示文件內容

  Dim fs As New SystemIOFileStream(sFirstFileName IOFileModeOpen)

  Dim sr As New SystemIOStreamReader(fs SystemTextEncodingGetEncoding(gb))

  TextBoxAppendText(ControlCharsCrLf & srReadToEnd()ToString)

  fsClose()

  srClose()

  End If

  Return False

  End Function

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

  If disposing Then

  If Not (components Is Nothing) Then

  componentsDispose()

  End If

  End If

  ApplicationRemoveMessageFilter(Me)

  DragAcceptFiles(TextBoxHandleToInt False)

  MyBaseDispose(disposing)

  End Sub

  注意拖放結束後調用DragFinish釋放內存


From:http://tw.wingwit.com/Article/program/net/201311/13043.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.