用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB Clipboard.getdata 方法图片读写示例

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-07-19 22:22:37
说明: 
    用于从 Clipboard 对象返回一个图形。不支持命名参数。
语法:
object.GetData (format)

参数 描述
object 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。
format 可选的。一个常数或数值,如“设置值”中所描述的,它指定 Clipboard 图形的格式。必须用括号将该常数或数值括起来。如果 format 为 0 或省略,GetData 自动使用适当的格式。
format 的设置有以下值:
常数 描述
vbCFBitmap 2 位图(.bmp文件)
vbCFMetafile 3 元文件(.wmf文件)
vbCFDIB 8 设备无关位图 (DIB)
vbCFPalette 9 调色板

实例: 


本示例使用 GetData 方法从 Clipboard 对象中将一个位图复制到一个窗体上。要检验此示例,可将本例代码粘贴到一个窗体的声明部分,然后按 F5 键并单击该窗体。
VBScript code复制代码
Private Sub Form_Click ()
   Const CF_BITMAP = 2   ' 定义位图各种格式。
   Dim Msg   ' 声明变量。
   On Error Resume Next   ' 设置错误处理。
   Msg = "Choose OK to load a bitmap onto the Clipboard."
   MsgBox Msg   ' 显示信息。
   Clipboard.Clear   ' 清除剪贴板。
   Clipboard.SetData LoadPicture("PAPER.BMP")  ' 取得位图。
   If Err Then
      Msg = "Can't find the .bmp file."
      MsgBox Msg   ' 显示错误信息。
      Exit Sub
   End If
   Msg = "A bitmap is now on the Clipboard. Choose OK to copy "
   Msg = Msg & "the bitmap from the Clipboard to the form "
   MsgBox Msg   ' 显示信息。
   Picture = Clipboard.GetData()   ' 从剪贴板上复制。
   Msg = "Choose OK to clear the form."
   MsgBox Msg   ' 显示信息。
   Picture = LoadPicture()   ' 清除窗体。
End Sub

Tags:Clipboard getdata 剪切板

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 2 条,得分 170 分,平均 85 分) 查看完整评论
[回复] 2JeraldKt   打分:85 分  发表时间:2014-07-12
· Now I do however believe that it isn't necessary to
[回复] 1JeraldKt   打分:85 分  发表时间:2014-07-12
· As a size 17, I have no problem which has a n