vb.net文件拖放 vb移动文件代码

求助vb.net拖拽文件到窗体获取文件信息

这是一个简单的示例，你只需要新建一个项目，并在项目上放置一个文本框：TEXTBOX1，然后，将以下代码复制到代码区：

洞口网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联建站2013年至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。

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 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.NET拖放文本文件到TextBox获得其路径。

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

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 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。