怎样把剪贴板里的图片粘贴到图片控件中？


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。GetData 方法示例 
本示例使用 GetData 方法从 Clipboard 对象中将一个位图复制到一个窗体上。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。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