SetData
以给定剪贴板格式在DataObject中存储值。对同一对象多次调用SetData可使一个逻辑有效负载以多种格式提供——例如vbCFText和`vbCFUnicodeText**——使每个消费者都能选择其理解的表示。
语法：object.SetData [ Value [ , Format ] ]
- object
- 必需 求值为DataObject的对象表达式。
- Value
- 可选 要存储的值。可以是可赋值给Variant的任何表达式——文本、字节数组、stdole.IPictureDisp等。
- Format
- 可选 ClipboardConstants值——
vbCFText、vbCFUnicodeText、vbCFBitmap、`vbCFFiles**等——命名Value存储所用的剪贴板格式。如果省略，DataObject根据Value的运行时类型选择默认格式。
使用自定义（私有）剪贴板格式时，在将其标识符传递给SetData之前，应先通过RegisterClipboardFormat向系统注册；否则其他应用程序将无法读回数据。
示例
vb
Dim Data As New DataObject
Data.SetData "Hello, world!", vbCFText
Data.SetData LoadPicture("logo.bmp"), vbCFBitmap