189 8069 5689
很久没有上这里了，今天看到了这个问题，尝试做了一个；
成都创新互联专注于企业成都营销网站建设、网站重做改版、濮阳网站定制设计、自适应品牌网站建设、H5高端网站建设、电子商务商城网站建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为濮阳等各大城市提供网站开发制作服务。
本例以源文本框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
控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。
第一步，点击VS工具
请点击输入图片描述
第二步，打开后，新建一个Windows窗体应用程序
请点击输入图片描述
第三步，新建完毕后，如图所示
请点击输入图片描述
第四步，拖动文本框与按钮，如图示
请点击输入图片描述
第五步，将剪贴板复制与粘贴代码输入，如图示
请点击输入图片描述
第六步，运行程序
请点击输入图片描述
7
第七步，点击按钮，成功从剪贴板中复制与粘贴操作
请点击输入图片描述
VB.NET做的窗体托盘，可以把窗体缩小到任务栏图标，点右键可以触发事件-VB.NET do form tray can form down to the taskbar icon, point right to trigger events
设置list1的OLEDropMode
属性为手动,窗体和其它控件也可以这样设置
Option
Explicit
Private
Sub
Form_Load()
'设置允许List1接受拖放操作
List1.OLEDropMode
=
1
End
Sub
'有东西拖放到List1上
Private
Sub
List1_OLEDragDrop(Data
As
DataObject,
Effect
As
Long,
Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Dim
i
As
Integer
'将拖放的文件添加到列表
For
i
=
1
To
Data.Files.Count
List1.AddItem
Data.Files(i)
Next
End
Sub