vb.net粘贴文本 vb文本框复制粘贴代码

vb.net textbox1选中的文本,拖放到textbox2?

很久没有上这里了,今天看到了这个问题,尝试做了一个;

成都创新互联公司主要从事网站设计、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务宣州,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

本例以源文本框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怎么复制文件到剪切板,不是复制文件内容!

例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板

CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"

vb.net中怎么样把文本放入剪贴板呢,一定要仔细啊,从头到尾写出来给我吧。

Clipboard.SetDataObject(TextBox1.Text)

复制textbox1.text的内容的剪贴板

编程vb.net clipboard 剪切复制粘贴

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Clipboard.SetDataObject(TextBox1.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)

End Sub


名称栏目:vb.net粘贴文本 vb文本框复制粘贴代码
网页链接:http://bzwzjz.com/article/hidhhj.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 重庆外贸网站建设 网站建设方案 成都网站制作 LED网站设计方案 营销网站建设 攀枝花网站设计 企业网站建设 成都企业网站建设公司 手机网站制作 响应式网站设计 重庆网站设计 成都网站建设 成都网站制作 温江网站设计 成都定制网站建设 成都网站制作 移动网站建设 成都网站制作 成都网站设计 网站建设公司 成都网站建设公司 外贸网站设计方案