图象转换上

原创 2002年02月24日 08:51:00

图象转换上

'功能 Picture对象相关操作
'类别 模块

Option Explicit

'*****************************************************************
'* 将 icon 对象转换为 VB 的 picture 对象
'* 参数∶ hIcon 一个有效的图标句柄
'*****************************************************************
Function IconToPicture(ByVal hIcon As Long) As IPicture
  Dim ipic As IPicture
  Dim picdes As PICTDESC, iidIPicture As IID

  If hIcon = hNull Then Exit Function
  picdes.cbSizeofstruct = Len(picdes)
  picdes.picType = vbPicTypeIcon
  picdes.hgdiobj = hIcon
  ' Fill in magic IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
  iidIPicture.Data1 = &H7BF80980
  iidIPicture.Data2 = &HBF32
  iidIPicture.Data3 = &H101A
  iidIPicture.Data4(0) = &H8B
  iidIPicture.Data4(1) = &HBB
  iidIPicture.Data4(2) = &H0
  iidIPicture.Data4(3) = &HAA
  iidIPicture.Data4(4) = &H0
  iidIPicture.Data4(5) = &H30
  iidIPicture.Data4(6) = &HC
  iidIPicture.Data4(7) = &HAB
 
  OleCreatePictureIndirect picdes, iidIPicture, True, ipic
 
  Set IconToPicture = ipic
End Function

'******************************************************************
'* 将 Cursor 对象转换为 VB 的 Picture 对象
'* 参数∶ hIcon 一个有效的光标句柄
'******************************************************************
Function CursorToPicture(ByVal hIcon As Long) As IPicture
  ' It's just an alias
  Set CursorToPicture = IconToPicture(hIcon)
  End Function

'******************************************************************
'* 将 bitmap 对象转换为 VB 的 picture 对象
'* 参数∶ hBmp 一个有效的位图句柄
'* hpal 一个有效的调色板句柄
'******************************************************************
Function BitmapToPicture(ByVal hBmp As Long, _
             Optional ByVal hPal As Long = hNull) As IPicture
 
  Dim ipic As IPicture
  Dim picdes As PICTDESC, iidIPicture As IID
  picdes.cbSizeofstruct = Len(picdes)
  picdes.picType = vbPicTypeBitmap
  picdes.hgdiobj = hBmp
  picdes.hPalOrXYExt = hPal
  ' Fill in magic IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
  iidIPicture.Data1 = &H7BF80980
  iidIPicture.Data2 = &HBF32
  iidIPicture.Data3 = &H101A
  iidIPicture.Data4(0) = &H8B
  iidIPicture.Data4(1) = &HBB
  iidIPicture.Data4(2) = &H0
  iidIPicture.Data4(3) = &HAA
  iidIPicture.Data4(4) = &H0
  iidIPicture.Data4(5) = &H30
  iidIPicture.Data4(6) = &HC
  iidIPicture.Data4(7) = &HAB

  OleCreatePictureIndirect picdes, iidIPicture, True, ipic
 
  Set BitmapToPicture = ipic
End Function

 


       以上代码来自: 源代码数据库(SourceDataBase)
           当前版本: 1.0.436
               作者: Shawls
           个人主页: Http://Shawls.Yeah.Net
             E-Mail: ShawFile@163.Net
                 QQ: 9181729

javascript将base64编码的图片数据转换为file并提交

/** * @param base64Codes * 图片的base64编码 */ function sumitImageFile(base64Codes){ va...
  • hongwangzhang
  • hongwangzhang
  • 2015年12月08日 10:47
  • 16904

DataURL与File,Blob,canvas对象之间的互相转换的Javascript

canvas转换为dataURL (从canvas获取dataURL)var dataurl = canvas.toDataURL(‘image/png’); var dataurl2 = canv...
  • dahuzix
  • dahuzix
  • 2016年03月07日 11:59
  • 1902

DataURL与File,Blob,canvas对象之间的互相转换的Javascript

# canvas转换为dataURL (从canvas获取dataURL) # File对象转换为dataURL、Blob对象转换为dataURL # dataURL转换为Blob对象 # da...
  • cuixiping
  • cuixiping
  • 2015年05月27日 01:14
  • 58135

VC6怎样将bmp格式图象转换为jpg格式文件?

VC6怎样将bmp格式图象转换为jpg格式文件?   利用 IJG 的 jpeg 库。   关于如何使用 IJG jpeg 库,请参考前面的文章: VC6下编译IJG库(用于读取和生成jpg...
  • jiqishijue007
  • jiqishijue007
  • 2012年12月29日 17:11
  • 696

DirectShow流媒体信息获取及图象转换

概述   流媒体的处理,以其复杂性和技术性,一向广受工业界的关注。特别伴随着因特网的普及,流媒体在网络上已广泛应用﹐怎样使流媒体的处理变得简单而富有成效逐渐成为了焦点问题。选择一种合适的应用方案...
  • stardtx
  • stardtx
  • 2012年03月22日 10:45
  • 410

把图象文件转换成XML格式文件

利用.NET 框架下的FromBase64String和ToBase64String方法可以很容易地实现图象文件和XML文件的互换。这样可以轻易解决以XML格式保存图片的问题。代码如下: P...
  • my98800
  • my98800
  • 2016年07月30日 11:58
  • 298

DirectShow流媒体消息获得及图象转换.

概述   流媒体的处理,以其混杂性和技巧性,始终广受工业界的关怀。尤其追随着因特网的普及,流媒体在网络上已普遍利用﹐怎样使流媒体的处理变得容易而富有收获逐渐成为了焦点问题。抉择一种轻便的利用计划...
  • stardtx
  • stardtx
  • 2012年03月07日 10:30
  • 497

Delphi常见图象格式转换技术

TJPEGScale = (jsFullSize, jsHalf, jsQuarter, jsEighth);//图片大小(全部,1/2,1/4,1/8) TBitmap.pixelFormat:=...
  • husf
  • husf
  • 2016年03月19日 13:34
  • 176

把图象文件转换成XML格式文件(二进制转字符)

把图象文件转换成XML格式文件 利用.NET 框架下的FromBase64String和ToBase64String方法可以很容易地实现图象文件和XML文件的互换。这样可以轻易解决以XML格式保存图片...
  • weishaolin131083
  • weishaolin131083
  • 2011年04月16日 03:19
  • 1077

图象转换工具

  • 2008年03月19日 15:16
  • 120KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:图象转换上
举报原因:
原因补充:

(最多只允许输入30个字)