直接粘贴剪贴版的位图数据到Image控件

• 调用范例：

  Private Sub Command1_Click()
      PasteToImage Me.Image0
  End Sub

  模块段代码：

  Option Compare Database
  Option Explicit

  Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
  Declare Function CloseClipboard Lib "user32" () As Long
  Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
  Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
     (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

  Public Const CF_TEXT = 1
  Public Const CF_BITMAP = 2
  Public Const CF_METAFILEPICT = 3
  Public Const CF_DIB = 8
  Public Const CF_ENHMETAFILE = 14

  Public Sub PasteToImage(ByRef imgDest As Image)
      Dim hBMP As Long
      Dim arrData() As Byte
      Dim biClrUsed As Long, biSizeImage As Long
      
      OpenClipboard Application.hWndAccessApp
      hBMP = GetClipboardData(CF_DIB)
      CloseClipboard
      
      If hBMP <> 0 Then
          ReDim arrData(39)
          CopyMemory ByVal VarPtr(arrData(0)), ByVal hBMP, 40
          
          biClrUsed = ReadBytes(arrData, 32, 2)
          biSizeImage = ReadBytes(arrData, 20, 4)
          
          ReDim arrData(39 + biClrUsed * 8 + biSizeImage)
  

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 直接粘贴剪贴版的位图数据到Image控件 相关文章：
• ·直接粘贴剪贴版的位图数据到Image控件
• 直接粘贴剪贴版的位图数据到Image控件 相关软件

上一篇:SQL Server数据库实用技巧集合

下一篇:取一表前N条记录，各个数据库的SQL写法

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐