'-------------------------------------------- ' 剪贴板的使用方法示例 '-------------------------------------------- ' 洪恩在线 求知无限 '-------------------------------------------- '本例演示了剪贴板的使用方法，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帮助。