如何将文字复制到剪贴板

剪贴板（ClipBoard）

　　ClipBoard 对象用于操作Windows 的剪贴板上的文本和图形。通过剪贴板用户能够复制、剪切和粘贴应用程序中的文本和图形。Windows 应用程序共享剪贴板。

　　1.使用剪贴板的方法

　　ClipBoard 对象没有属性和事件，但具有以下方法：

　　·Clear 方法

　　Clear 用于清除剪贴板中的内容，在复制任何信息到剪贴板中之前，应使用Clear 方法清除剪贴板中的内容。

　　语法：

　　［对象］.Clear

　　·GetText 和SetText 方法

　　GetText 和SetText 是最常用的两种ClipBoard 方法，用于处理文本。

　　GetText 用于从剪贴板中返回文本，也可将它作为函数使用。SetText 将文本复制到剪贴板上，替换先前存储在那里的文本，可将它作为一条语句使用。

　　语法：

　　对象.GetText （［格式］）
　　ClipBoard.SetText 字符串数据［，格式］

　　其中，格式用于指定数据格式，设置值如表6-1-9 所示。

表 6-1-9

常　数 值 描　述
vbCFLink &HBF00 DDE对话信息
vbCFRTF &HBF01 RTF格式（.rtf文件）
vbCFText 1 （默认值）文本

　　·GetData和SetData方法

　　GetData 和SetData 用于处理图形。GetData 方法用于从剪贴板中返回一个图形，SetData 方法是使用指定的图形格式将图片放到剪贴板上。语法格式与GetText 和SetText 相同。

　　·GetFormat 方法

　　GetFormat 用于判断ClipBoard 中存放的是哪种格式的数据。

　　语法：

　　ClipBoard.GetFormat （格式）

　　如果ClipBoard中存放的是与指定格式匹配的数据，则返回True，否则返回False。

　　2.选定文本

　　当使用ClipBoard时，文本框和组合框有可以选定文本的属性，这些属性与CliPboard对象联合使用，可以实现文本的复制、剪切和粘贴操作。

　　用于选定文本的属性有SelLength、Selstart、SelText:

　　·SelLength 是所选定文本的字符数。

　　·SelStart 是选定文本的起点；如果没有文本被选中，则指出插入点的位置。

　　·SelText 是所选择的文本，为字符串型；如果没有字符被选中，则为空字符串。