vb 复制剪切粘帖的代码,有text1,在线等

Clipboard，剪贴板，可以对某项进行剪切、复制或粘贴操作
方法
With Clipboard
.Clear '清除剪贴板里的所有内容。建议执行以下方法时先执行这个语句。
.SetText <要复制的内容>,<复制方式> '将字符串按指定格式存入Clipboard对象中（如果<复制方法>不写，将按默认值进行）。例如，将Text1中的选定内容复制到剪贴板中，代码是Clipboard.SetText Text1.SelText
.GetText (<粘贴方式>) '从剪贴板返回的一个字符串。（<粘贴方式>可以不写，但是括号不能删掉）例如，将该字符串粘贴到Text1的光标处或选定部分（会把原来选定部分删除），方法是Text1.SelText = Clipboard.GetText()
.SetData <存入图形>, <方式> '与SetText相似，只不过是将图形数据按指定格式存入Clipboard，代码也相似。如果<方式>为空，则由系统自动判定。
.GetData (<粘贴方式>) '与GetText相似，只不过是将图形数据粘贴至某处，但不允许删除括号。代码也相似。如果<方式>为空，则由系统自动判定。
.GetFormat '一般用于检查剪贴板某项中是否存在一些东西。有则返回True，否则为False。可同时包含文字和图形，互不干扰。
End With
SetText 和 GetText 的复制/粘贴取值
内部常数| 值 | 含义
VbCFText| 1 | （默认值）文本
VbCFRTF | &HBF01| RTF 格式
VbCFLink| &HBF00| DDE 对话信息
SetData 和 GetData 的复制/粘贴取值
内部常数 值 | 含义
vbCFBitmap | 2 | 位图 (*.bmp)
vbCFMetaFile| 3 | 元文件 (*.wmf)
vbCFDIB | 8 | 与设备无关的位图(DIB)
vbCFPalette | 9 | 调色板

参考资料：书

真有点难为你了，楼上已经给出代码了，给你摘一下：
复制按钮的代码：
Clipboard.Clear
Clipboard.SetText Text1.SelText

粘贴的代码：
Text1.SelText = Clipboard.GetText()

剪切代码：
Clipboard.Clear
Clipboard.SetText Text1.SelText

Text1.SelText = “”