日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

#t#VB.NET還是比較常用的，于是我研究了一下VB.NET拖放文件，本文介紹了在VB.NET中如何實(shí)現(xiàn)接受VB.NET拖放文件，在這里拿出來(lái)和大家分享一下，希望對(duì)大家有用。自從資源管理器中拖放到應(yīng)用程序中的時(shí)候，自動(dòng)獲取VB.NET拖放文件。文中的例子是一個(gè)接受VB.NET拖放文件顯示文件內(nèi)容的VB.NET實(shí)例程序。

對(duì)于文本格式的文件，我們可以直接拖到記事本中就可以看到內(nèi)容；各種類型的圖片，拖到Photoshop中，就可以直接對(duì)其編輯。我們?nèi)绾卧赩B.NET開發(fā)的程序也實(shí)現(xiàn)上述效果呢？

我們知道，每一個(gè)Windows的應(yīng)用程序都有一個(gè)消息隊(duì)列，程序的主體接受系統(tǒng)的消息，然后分發(fā)出去（給一個(gè)form，或者一個(gè)控件），接受者有相應(yīng)的程序來(lái)處理消息。在.NET的Form中，默認(rèn)情況下程序是不翻譯這些消息的，也就是說(shuō)默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵。能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！

在.NET中，任何一個(gè)實(shí)現(xiàn)IMessageFilter 接口的類，可以添加到應(yīng)用程序的消息泵中，以在消息被調(diào)度到控件或窗體之前將它篩選出來(lái)或執(zhí)行其他操作。使用 Application 類中的 AddMessageFilter 方法，可以將消息篩選器添加到應(yīng)用程序的消息泵中。

于是我們?cè)诔绦蚣虞d的時(shí)候，調(diào)用Application.AddMessageFilter(Me)。然而，默認(rèn)情況下一個(gè)Form或者控件是不能接受VB.NET拖放文件的，我們調(diào)用一個(gè)WIN32 API DragAcceptFiles，這個(gè)API可以設(shè)置對(duì)應(yīng)的控件是否能接受VB.NET拖放文件。然后可以用DragQueryFile查詢拖放到的文件列表，也就是VB.NET拖放文件地具體路徑和文件名。

 
 
 

  
  
  
Imports System.Runtime.InteropServices 
  
  
  
Public Class Form1 
  
  
  
Inherits System.Windows.Forms.Form 
  
  
  
Implements IMessageFilter 
  
  
  
'API申明 
  
  
  
Const WM_DROPFILES = &H233‘拖放文件消息 
  
  
  
("shell32.dll")> Public Shared Sub DragFinish(ByVal hDrop As Integer) 

  
  
  
End Sub 
  
  
  
("shell32.dll")> Public Shared Sub DragAcceptFiles
(ByVal hwnd As Integer, ByVal fAccept As Boolean) 

  
  
  
End Sub 
  
  
  
("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 
  
  
  
'設(shè)置拖放的動(dòng)作 
  
  
  
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 '記錄***個(gè)文件名 
  
  
  
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) '拖放完成 
  
  
  
'顯示文件內(nèi)容 
  
  
  
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