VB.NET拖放文本文件到TextBox獲得其路徑。

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

創新互聯建站基于成都重慶香港及美國等地區分布式IDC機房數據中心構建的電信大帶寬，聯通大帶寬，移動大帶寬，多線BGP大帶寬租用,是為眾多客戶提供專業四川電信科技城機房報價，主機托管價格性價比高，為金融證券行業服務器托管，ai人工智能服務器托管提供bgp線路100M獨享，G口帶寬及機柜租用的專業成都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 是開啟拖放支持，可以在窗體設計器里面開啟它，也可以代碼開啟。

求助vb點虐 拖拽文件到窗體獲取文件信息

這是一個簡單的示例，你只需要新建一個項目，并在項目上放置一個文本框：TEXTBOX1，然后，將以下代碼復制到代碼區：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.AllowDrop = True

End Sub

''建拖曳事件，實現文件拖放

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

如此，在文本框里將會出現被拖曳文件的路徑信息。

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

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

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

思路

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

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

于是我們在程序加載的時候 調用Application AddMessageFilter（Me） 然而 默認情況下一個Form或者控件是不能接受拖放的文件的 我們調用一個WIN API DragAcceptFiles源碼天空 這個API可以設置對應的控件是否能接受拖放的文件 然后可以用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

設置拖放的動作

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 ） 拖放完成

顯示文件內容

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

vb點虐 textbox1選中的文本，拖放到textbox2？

很久沒有上這里了，今天看到了這個問題，嘗試做了一個；

本例以源文本框TextBox1全部文字作為拖放文字為例，實現拖放

1、向一個窗體中添加兩個文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設置成True，這點不要遺漏。

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

'設置一個標志以顯示鼠標已按下。

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的文本內容作為拖放內容）。

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

'檢查正在被拖放的數據的格式。

If (e.Data.GetDataPresent(DataFormats.Text)) Then

'顯示復制光標（表示是拖放行為）。

e.Effect = DragDropEffects.Copy

Else

'顯示不放置光標（表示不是拖放行為）。

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

'粘貼文本（將拖放內容作為TextBox2的文本內容）。

TextBox2.Text = e.Data.GetData(DataFormats.Text)

End Sub

End Class

本文標題：vb點虐 文件拖拽 vba拖拽獲取文件名
網頁路徑：http://www.js-pz168.com/article34/ddjosse.html

成都網站建設公司_創新互聯，為您提供軟件開發、品牌網站制作、標簽優化、網站導航、全網營銷推廣、網站改版

廣告

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