用VB实现复制粘贴

VB提供了对象Clipboard完成剪贴板的操作

目前创新互联建站已为上千余家的企业提供了网站建设、域名、网站空间、网站托管、企业网站设计、青神网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

将文本复制到剪贴板

Clipboard.Clear

Clipboard.SetText

"text"

将bmp图片复制到剪贴板

Clipboard.Clear

Clipboard.SetData

LoadPicture("a.bmp")

将剪贴板中文本取到

变量temp中

Dim

temp

As

String

If

Clipboard.GetFormat(CF_TEXT)

Then

Temp

=

Clipboard.GetText(CF_TEXT)'CF_TEXT

=

1

将剪贴板中图片粘贴到当前窗体

If

Clipboard.GetFormat(CF_BITMAP)

Then

Picture

=

Clipboard.GetData()'CF_BITMAP

=

2

CF_LINK

HBF00

DDE

conversation

information

CF_TEXT

1

Text

CF_BITMAP

2

Bitmap

(.BMP

files)

CF_METAFILE

3

Metafile

(.WMF

files)

CF_DIB

8

Device-independent

bitmap

CF_PALETTE

9

Color

palette

快捷键在菜单定定义窗口中设置啦

再说cut:

Ctrl+X,

copy:

Ctrl+C,

paste:

Ctrl+V

都已经成为约定俗成的使用方法了

最好不要搞什么

shift+1复制ctrl+1粘贴

shift+2复制ctrl+2粘贴另一组

对文本框中选定的内容进行复制，剪切和粘贴

'使用变量

Dim TeStr As String

'取得text1的选定文本

TeStr = Text1.SelText

Text2.Text = TeStr

'清空text1的选定文本

Text1.SelText = ""

'=========================================

'第二种方法,使用剪贴板

Clipboard.Clear

'将text1的选定文本复制到剪贴板中

Clipboard.SetText Text1.SelText

Text2.Text = Clipboard.GetText

'清空text1的选定文本

Text1.SelText = ""

求一VB程序,复制文本框中的内容

Private Sub Command1_Click()

Clipboard.SetText Text1

MsgBox "已复制！"

Text2 = Clipboard.GetText

MsgBox "已粘贴"

End Sub

在Text1中输入字符，点击按钮就产生复制和粘贴事件（Text2=Text1）。

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中TEXT文本怎么设定为单击复制

你可以用ClipBoard的SetText属性来复制到剪切板在窗体中放上一个文本框，打开代码窗口，把下面代码复制到里面：

Private Sub Text1_Click()

Clipboard.Clear

Clipboard.SetText Text1.Text

MsgBox "文字已复制到剪切板"

End Sub

新闻名称：vb.net复制选定文本 vb复制窗体
本文URL：http://kswjz.com/article/dooosei.html