最好之前有校验内容是否为图象,谢谢!

解决方案 »

  1.   

    GetFormat 方法
          返回一个整数,指出 Clipboard 对象中的项目是否匹配期望的格式。不支持命名参数。语法object.GetFormat (format)GetFormat 方法的语法包含下列部分:部分 描述 
    object 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。 
    format  必需的。一个数值或常数,如“设置值”中所描述的,它指定 Clipboard 对象的格式。必须用括号包括该常数或数值。 
    设置值用于 format 的设置值有:常数 值 描述 
    vbCFLink &HBF00 DDE对话信息 
    vbCFText 1 文本 
    vbCFBitmap 2 位图(.bmp 文件) 
    vbCFMetafile 3 元文件(.wmf 文件) 
    vbCFDIB 8 设备无关位图 (DIB) 
    vbCFPalette 9 调色板 
    说明上述常数在 Visual Basic (VB) 对象浏览器中的对象库里列出。如果 Clipboard 对象中一个项目匹配指定的格式,则 GetFormat 方法返回 True。否则,返回 False。对于 vbCFDIB 和 vbCFBitmap 两种格式,显示图形时不管 Clipboard 中是什么样的调色板都要使用。
    GetData 方法
          用于从 Clipboard 对象返回一个图形。不支持命名参数。语法object.GetData (format)GetData 方法的语法包含下列部分:部分 描述 
    object 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。 
    format  可选的。一个常数或数值,如“设置值”中所描述的,它指定 Clipboard 图形的格式。必须用括号将该常数或数值括起来。如果 format 为 0 或省略,GetData 自动使用适当的格式。 
    设置值format 的设置值有:常数 值 描述 
    vbCFBitmap 2 位图(.bmp文件) 
    vbCFMetafile 3 元文件(.wmf文件) 
    vbCFDIB 8 设备无关位图 (DIB) 
    vbCFPalette 9 调色板 
    说明上述常数在 Visual Basic (VB) 对象浏览器中的对象库里列出。如果 Clipboard 对象没有与期望的格式相匹配的图形,则返回空。如果 Clipboard 对象中只有一个调色版,则创建最小尺寸 (1x1) 的 DIB。