Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
創(chuàng)新互聯(lián)建站基于成都重慶香港及美國等地區(qū)分布式IDC機(jī)房數(shù)據(jù)中心構(gòu)建的電信大帶寬，聯(lián)通大帶寬，移動大帶寬，多線BGP大帶寬租用,是為眾多客戶提供專業(yè)四川電信科技城機(jī)房報(bào)價，主機(jī)托管價格性價比高，為金融證券行業(yè)服務(wù)器托管，ai人工智能服務(wù)器托管提供bgp線路100M獨(dú)享，G口帶寬及機(jī)柜租用的專業(yè)成都idc公司。
TextBox1.AllowDrop = True
End Sub
Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
Me.TextBox1.Text = files(files.Length - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub
TextBox1.AllowDrop = True 是開啟拖放支持，可以在窗體設(shè)計(jì)器里面開啟它，也可以代碼開啟。
這是一個簡單的示例，你只需要新建一個項(xiàng)目，并在項(xiàng)目上放置一個文本框：TEXTBOX1，然后，將以下代碼復(fù)制到代碼區(qū)：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AllowDrop = True
End Sub
''建拖曳事件，實(shí)現(xiàn)文件拖放
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
Dim filepaht As String() = e.Data.GetData(DataFormats.FileDrop)
For Each File As String In filepaht
textBox1.Text = File
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
如此，在文本框里將會出現(xiàn)被拖曳文件的路徑信息。
本文介紹了在VB NET中如何實(shí)現(xiàn)接受拖放的文件 即從資源管理器中拖放到應(yīng)用程序中的時候 自動獲取拖放的文件 文中的例子是一個接受拖放文件顯示文件內(nèi)容的VB NET實(shí)例程序 引言
對于文本格式的文件 我們可以直接拖到記事本中就可以看到內(nèi)容 各種類型的圖片 拖到Photoshop中 就可以直接對其編輯 我們?nèi)绾卧赩B NET開發(fā)的程序也實(shí)現(xiàn)上述效果呢？
思路
我們知道 每一個Windows的應(yīng)用程序都有一個消息隊(duì)列 程序的主體接受系統(tǒng)的消息 然后分發(fā)出去（給一個form 或者一個控件） 接受者有相應(yīng)的程序來處理消息 在 NET的Form中 默認(rèn)情況下程序是不翻譯這些消息的 也就是說默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵 能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！
在 NET中 任何一個實(shí)現(xiàn)IMessageFilter 接口的類 可以添加到應(yīng)用程序的消息泵中 以在消息被調(diào)度到控件或窗體之前將它篩選出來或執(zhí)行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應(yīng)用程序的消息泵中
于是我們在程序加載的時候 調(diào)用Application AddMessageFilter（Me） 然而 默認(rèn)情況下一個Form或者控件是不能接受拖放的文件的 我們調(diào)用一個WIN API DragAcceptFiles源碼天空 這個API可以設(shè)置對應(yīng)的控件是否能接受拖放的文件 然后可以用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
設(shè)置拖放的動作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）
Dim i As Int
Dim *** As New System Text StringBuilder（ ）
Dim sFirstFileName As String 記錄第一個文件名
TextBox Clear（）
For i = To nfiles
DragQueryFile（m WParam ToInt i *** ）
If i = Then sFirstFileName = *** ToString
TextBox AppendText（ControlChars CrLf *** ToString）
Next
DragFinish（m WParam ToInt ） 拖放完成
顯示文件內(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（ 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
lishixinzhi/Article/program/net/201311/13043
很久沒有上這里了，今天看到了這個問題，嘗試做了一個；
本例以源文本框TextBox1全部文字作為拖放文字為例，實(shí)現(xiàn)拖放
1、向一個窗體中添加兩個文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成True，這點(diǎn)不要遺漏。
2、完整的代碼如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'設(shè)置一個標(biāo)志以顯示鼠標(biāo)已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'開始拖動（將TextBox1的文本內(nèi)容作為拖放內(nèi)容）。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'檢查正在被拖放的數(shù)據(jù)的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'顯示復(fù)制光標(biāo)（表示是拖放行為）。
e.Effect = DragDropEffects.Copy
Else
'顯示不放置光標(biāo)（表示不是拖放行為）。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
重慶分公司
重慶分公司
