• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: 小 中 大 | 推荐给好友 上一篇 | 下一篇

获得位图文件的信息

发布: 2007-5-25 09:21 | 作者: ShowMan | 来源: 互联网 | 查看: 30次 | 进入软件测试论坛讨论

领测软件测试网 在Form中添加一个Picture控件和一个CommandButton控件,在Picture控件中加入一个位图文件,将下面代码加入其中:
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" _
(ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) _
As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, _
ByVal dwCount As Long, lpBits As Any) As Long

Private Type BITMAP
  bmType As Long
  bmWidth As Long
  bmHeight As Long
  bmWidthBytes As Long
  bmPlanes As Integer
  bmBitsPixel As Integer
  bmBits As Long
End Type

Private Sub Command1_Click()
  Dim hBitmap As Long
  Dim res As Long
  Dim bmp As BITMAP
  Dim byteAry() As Byte
  Dim totbyte As Long, i As Long
  hBitmap = Picture1.Picture.Handle

  res = GetObject(hBitmap, Len(bmp), bmp) '取得BITMAP的结构

  totbyte = bmp.bmWidthBytes * bmp.bmHeight '总共要多少BYTE来存图
  ReDim byteAry(totbyte - 1)
  '将Picture1中的图信息存到ByteAry
  res = GetBitmapBits(hBitmap, totbyte, byteAry(0))

  Debug.Print "Total Bytes Copied :"; res
  Debug.Print "bmp.bmBits "; bmp.bmBits
  Debug.Print "bmp.bmBitsPixel "; bmp.bmBitsPixel '每相素位数
  Debug.Print "bmp.bmHeight "; bmp.bmHeight '以相素计算图象高度
  Debug.Print "bmp.bmPlanes "; bmp.bmPlanes
  Debug.Print "bmp.bmType "; bmp.bmType
  Debug.Print "bmp.bmWidth "; bmp.bmWidth '以相素计算图形宽度
  Debug.Print "bmp.bmWidthBytes "; bmp.bmWidthBytes '以字节计算的每扫描线长度
End Sub

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新
软件测试技术相关文章

软件测试培训信息
最新软件测试技术专题
最新领测软件测试网新闻
软件测试技术文章排行榜
  • 编辑推荐
  • 周排行
  • 月排行
软件测试技术分类最新内容
关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003－2010 TestAge（领测软件测试网）|领测国际科技（北京）有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系：info@testage.com.cn 电话：010-51297073

软件测试 | 领测国际 | ISTQB | ISTQB官网 | TMMi | TMMi认证 | 国际软件测试工程师认证 | 领测软件测试网