189 8069 5689
很久没有上这里了，今天看到了这个问题，尝试做了一个；
目前创新互联建站已为1000多家的企业提供了网站建设、域名、雅安服务器托管、网站改版维护、企业网站设计、虎林网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
本例以源文本框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
第一步，点击VS工具
请点击输入图片描述
第二步，打开后，新建一个Windows窗体应用程序
请点击输入图片描述
第三步，新建完毕后，如图所示
请点击输入图片描述
第四步，拖动文本框与按钮，如图示
请点击输入图片描述
第五步，将剪贴板复制与粘贴代码输入，如图示
请点击输入图片描述
第六步，运行程序
请点击输入图片描述
7
第七步，点击按钮，成功从剪贴板中复制与粘贴操作
请点击输入图片描述
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 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。