剪贴板是WINDOWS操作系统提供的十分有用的工具，用它可以进行文本和图形复制和粘贴操作，在VB中我们使用Clipboard 对象来操作剪贴板上的文本和图形。本例只是演示了对文本类型的数据进行操作，从中可以看到GetText、SetText、Clear三个方法的使用。
　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
’--------------------------------------------
’ 剪贴板的使用方法示例
’--------------------------------------------
’ 洪恩在线 求知无限
’--------------------------------------------
’本例演示了剪贴板的使用方法，GetText 、SetText
’Clear 方法是剪贴板的几个方法，我们用它来复制
’文本，对于图象以及其它格式的数据的操作，请参考
’VB帮助文件。
Dim DataString As String
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
Msg = "第一个文本框内不能为空"
Exit Sub
Else
Clipboard.Clear
’SetText方法，用于复制文本到剪贴板上
’使用语法：object.SetText data, [format]
’data 必需的。是被放置到剪贴板中的字符串数据。
’Format 可选的。一个常数或数值，按照下列设置中的描述，指定 Visual Basic 识别的剪贴板格式。
’vbCFLink &HBF00 DDE 对话信息
’vbCFRTF &HBF01 RTF 格式
’vbCFText 1 (缺省值)文本
Clipboard.SetText (Text1.Text)
End If
End Sub
Private Sub Command2_Click()
’GetText方法，用来取得剪贴板上的文本内容
’使用语法为：Clipboard.GetText([数据的类型])
temp = Clipboard.GetText(vbCFText)
Text2.Text = temp
End Sub
Private Sub Command3_Click()
’Clear方法，用于清空剪贴板上的数据
’使用语法：Clipboard.Clear
Clipboard.Clear
End Sub
先来看看GetText、SetText、Clear三个方法的语法：
SetText用于向剪贴板上写入数据，使用语法如下：
object.SetText data, format
’其中data是被放置到剪贴板中的字符串数据；
　　 ’format是一个常数或数值，指定 Visual Basic 识别的剪贴板格式，有三种选择vbCFLink(&HBF00),DDE 　　 ’对话信息 ；vbCFRTF(&HBF01)RTF 格式； vbCFText(1)文本；如果不指定默认为文本。 GetText用于从剪贴板上读入数据，使用语法如下：
　　　object.GetText (format)
’其中format的用法同上
’它的返回值就是剪贴板上的数据
Clear用于清除剪贴板上的数据，使用语法如下：
object.Clear
’一般情况下如果我们要使用系统剪贴板，总是先清除剪贴板上的数据，然后再写入
程序中当“复制”按钮按下时，我们把文本框Text1中的内容写入剪贴板，则在程序中加入如下语句：
Clipboard.Clear
Clipboard.SetText (Text1.Text)
程序中当“粘贴”按钮按下时，把剪贴板中的内容写入文本框Text2，则在程序中加入如下语句：
temp = Clipboard.GetText(vbCFText)
Text2.Text = temp
这样就完成了一个简单的文本复制、粘贴过程，利用剪贴板还能进行各种数据格式的操作，具体的方法我们可以参照VB帮助。

水、、、、、、、、、、

2楼. 剪贴板是WINDOWS操作系统提供的十分有用的工具，用它可以进行文本和图形复制和粘贴操作，在VB中我们使用Clipboard 对象来操作剪贴板上的文本和图形。本例只是演示了对文本类型的数据进行操作，从中可以看到GetText、SetText、Clear三个方法的使用。 　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码： ’-------------------------------------------- ’ 剪贴板的使用方法示例 ’-------------------------------------------- ’ 洪恩在线 求知无限 ’-------------------------------------------- ’本例演示了剪贴板的使用方法，GetText 、SetText ’Clear 方法是剪贴板的几个方法，我们用它来复制 ’文本，对于图象以及其它格式的数据的操作，请参考 ’VB帮助文件。 Dim DataString As String Private Sub Command1_Click() On Error Resum