如何用實例分析VB.NET拖放文件，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。

10年積累的成都網(wǎng)站制作、成都做網(wǎng)站經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先制作網(wǎng)站后付款的網(wǎng)站建設(shè)流程，更有萬源免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

VB.NET還是比較常用的，于是我研究了一下VB.NET拖放文件，下面介紹在VB.NET中如何實現(xiàn)接受VB.NET拖放文件。

自從資源管理器中拖放到應(yīng)用程序中的時候，自動獲取VB.NET拖放文件。文中的例子是一個接受VB.NET拖放文件顯示文件內(nèi)容的VB.NET實例程序。

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

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

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

于是我們在程序加載的時候，調(diào)用Application.AddMessageFilter(Me)。然而，默認情況下一個Form或者控件是不能接受VB.NET拖放文件的，我們調(diào)用一個WIN32 API DragAcceptFiles，這個API可以設(shè)置對應(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‘拖放文件消息  
<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  
<DllImort("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è)置拖放的動作  
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) '拖放完成  
'顯示文件內(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 

看完上述內(nèi)容是否對您有幫助呢？如果還想對相關(guān)知識有進一步的了解或閱讀更多相關(guān)文章，請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對創(chuàng)新互聯(lián)的支持。

當(dāng)前題目：如何用實例分析VB.NET拖放文件
路徑分享：http://www.chinadenli.net/article20/piiejo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、小程序開發(fā)、品牌網(wǎng)站設(shè)計、微信公眾號、用戶體驗、商城網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)