说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB获得位图文件的信息

HTML文档下载 WORD文档下载 PDF文档下载
VB获得位图文件的信息

在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
直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 Chrome 27来了:页面加载快5% 可同步数据到Google Drive 微软发布新一代游戏主机Xbox One 搭配全新Kinect 2.0体感系统 Unity游戏引擎向iOS与Android开发者免费 Twitter获“下拉刷新”专利 开发者仍可自由使用 复杂产品的响应式设计【流程篇】 使用Javassist库为Bytecode Instrumentation开发JVM Agent 内容解析创业公司Stremor推出4款API 2013中国云计算榜单之三:174家云应用服务商,繁花似锦! 盘点各大云服务提供商:麦当劳=AWS,汉堡王=? BlackBerry Jam亚洲开发者大会9月将在香港开幕 把服务器搬进来:Splashtop在中国搭建Bridging Cloud Web框架全对比第五期 新增Windows环境 前Tumblr首席开发者回忆录:一个人也能开发出好产品 测试者和开发者,为何我们不能友好地相处? 讲师秀之11:何刚谈京东的云机遇 讲师秀之10:武汉大学张焕国教授,可信计算是云计算之成败关键 【上海直播】Windows Azure+世纪互联:中国云计算“烈火烹油” 最新版Chrome浏览器推出全新语音搜索功能 惠普第二财季净利润同比下滑32% PC和服务器销售不佳 讲师秀之11:网易汪源的成长故事 PPT集萃(三):六位国内技术大牛分享巨型平台的打造与应用 聚焦全球移动市场:创新以色列 科技巨头的倾慕之地 Android版Chrome 27浏览器正式上架 机器人——数据中心的新“网管” George Chu:在雅虎打造真正的工程师文化 2013,303+家中国云计算企业的“生态系统”之梦! 高访问量Web应用跨云端迁移的原因:权限和易用性 Web应用开发者福音 Chrome 28新增丰富通知中心功能 如何控制 Text 控件中文本的行间距? 如何看别人的源代码??? 一些代码... 那位知道 Microsoft ODBC for Oracle 的驱动程序在那里能下载 ::)access数据库中字段是日期和时间型,用DAO编程应该用什么类型的数据才能填充数据库中的字段。 为什么?(大虾、菜鸟...统统欢迎) 在C/C++ 程序中怎样延时? 关于vb程序关闭的问题 如何得到一个文件夹的所有子文件夹和文件? ISA Server LOG中发现异常记录!是不是有黑客? 今年软件水平考试什么时候开始报名啊? 高分求购StyleReport EELite的license 很急,请各位帮忙解决notessql问题 如何得到一个文件夹的所有子文件夹和文件? 求兼职java工作 非模态对话矿如何自杀? 有谁熟悉DB2?(关于VW中元数据!) 如何将光盘中的一个子目录映射成一个硬盘盘符? 关于Applet!请指教 我现在要做一个象性能监视中的显示表格(使用VC),监视网络流量,和Media Server 的Stream。有没有低层的API? 蚂蚁下载 关于弹出窗口的问题 串口通讯的问题 关于_RecordsetPtr的一个问题,百思不得其解,请求帮助。 文档中心的帖子怎么收藏? 怎么在java中向一个sql语句传参数,就像oracle的proc一样啊? 如何有一个人成分6000行的文本文件,请问如何预览后打印出来. 其他应用程序能调用notes中的代理吗 ?在我的表中设了一字段PKID,此字段是主键并且自增,当我插入一条记录时,我如何取得此记录的PKID(Hothehe) 这个帖子怎么打不开? 急需解 请问高手,设计一个分时系统要注意些什么? 哪有c++builder6的帮助和列子 SourceSafe客户端登陆问题 呵呵,几天没来,这里全变样了,不错不错,漂亮多了。另外,提点建议。 在C/C++ 程序中怎样延时? 用sql语句,怎样取最后10条记录, 然后是最后第20-10条 , 30-20条 cockhorse(木马)来拿分,另找WindowsCE.net 我刚请我1个要好的朋友(但是很穷)吃饭 如何清空数据日志呢? 没人回答,我再问一遍关于ADODataSet中参数传递的问题 如何删除一个被定义主键的表 关于ListBox,请教!(在线等待) tomcat4配置问题!请高手指教! jsp程序如保加密呀让其它人查看不到原文件,但能在服务器上运行. 请问: 有时将Dephi5最小化,作了别的windows操作后,再返回时提示………… _RecordsetPtr的问题,急……… 有关键盘和鼠标的问题 大家好!一个新手的问题。希望得到大家的帮助! 关于COM和ALT有什么好书吗? select max()的语法怎么用,怎么就是不对。 怎么才能够给在程序运行时动态生成的控件添加事件代码?请教有方法吗? WIN2000路由nat的问题 求解怎样打磨EVA.如题 圆珠笔有毒吗我不要你们讲那些大道理我只问你们市场上一般的圆珠笔油有毒吗?不瞒你们说,今天上午我喝可乐(听装)剩的瓶子里面塞了大量废纸(不算太脏也不算干净),还有滴进去的几 一毫米汞柱等于多少米? 化学方程式中,什么与CO2反应生成氯化铵溶液与碳酸钠溶液? 为什么不能用钢丝和铁丝来代替保险丝? 下面是初中化学常见的五种物质之间的转化关系图(各步反应条件和其他反应物均已略去)甲乙丙丁中有两种金属,其中一种金属在地壳中的元素含量居所有金属的第二位.请回答:(1)丙、 惰性电极电解AgNO3溶液的电极反应! 可以判断硝酸银溶液和铜的反应的逆反应也同时发生的现象 会使泵的允许吸上真空度减少的是( )A 吸入液面的大气压力降低B 所送液体饱和蒸气压力降低C 泵的流量增大D 泵进口处压降增大为什么? 用惰性电极实现电解,下列说法正确的是:A电解稀硫酸溶液,实质是电解水.B电解稀氢氧化钠溶液,要消耗氢氧根.C电解硫酸钠溶液,在阴极和阳极析出的产物的物质的量之比是1:2 D电解氯化铜溶 在家庭电路中,如果用铁丝做保险丝,在什么情况下可能出现火灾 把CO2通入过量的偏铝酸钠溶液中 (反应方程式) 用惰性电极电解硝酸银溶液 离子方程式:4Ag++4OH-===4Ag+O2↑+2H20 哪里不对 下列是初中化学中常见的一些物质的互相转化,其中,A、E、F、G都是单质,B、H、F都是黑色固体.下列是初中化学中常见的一些物质的互相转化,其中,A、E、F、G都是单质,B、H、F都是黑色固体,D为 吸入真空度300mmHg,他的压力是多少? 马铃薯在水银上能浮的原因 F是初中化学常见物质,其实BCD是单质,AEF是化合物,已知ABCDEF如下所示转化关系.. What is'the Penny Black'? 酒精有毒么? 圆珠笔不出油怎么办? consensus of what standard english consists of请问是什么意思呢 谢谢 保险丝电阻率比较大而熔点较低的原因.顺便介绍下火线和零线的区别! 圆珠笔写不出油怎么办刚刚买了一根圆珠笔 写了几笔就写不出字了 什么方法都用过了 泡水 拿火烧都试过了 还是不行 有谁能给想想办法 根据金属活动性铜跟硝酸银溶液能否发生反应原因 水银和铝哪个密度大?如题 圆珠笔芯里面的油为什么不会流出来?首先肯定同那个半透明的一段油脂有关系,不知这东东是什么,但是这段油脂会随着芯里面的油减少而向前移动,怎么不会向后移动呢?也有可能有压力,但压 为什么保险丝不能用铜、铁丝代替? 制作保险丝为什么要选用比导线熔点低的材料? 为什么圆珠笔总是还有油就写不出字来了? 施工中为什么保险丝不能用铜、铁丝代替? 求问制作保险丝的材料为什么应该是熔点较低,电阻较大的? 初中化学中的建筑材料是什么? 原子笔与圆珠笔的区别 适合做保险丝的金属材料是怎么样的,是电阻大的,小的,还是熔点高的,低的 A是一种黑色的固体 B可以做建筑材料 A-J着10种物质是初中化学中常见的物质1.A+co(高温)=C+D2.B(高温)=D=EE+H2O=GG+F=波尔多溶液C+F=H+II+O2(加热)=JJ+H2SO4=FD是什么物质C和I 2种物质的活泼性相对 请问圆珠笔和原子笔有什么区别?为什么要叫圆珠笔?以前有听说过原子笔.究竟和圆珠笔有区别么?那为什么要叫圆珠笔呢?清楚一点! 石英石,长石,云母的化学成分是什么,化学结构分别是什么 ABCDEFG是初中化学常见的7种物质,其中A是常见的建筑材料,C是一种常见的化合物,F为天然气主要成分E在这几种物质中相对分子质量最小 求ABCDEFG各是什么 原子笔是圆珠笔吗? 二辛脂是由什么化学成分组成的? 漂白粉长期置露在空气中的两条方程式是什么 1BAR等于多少毫米汞柱? 铝块在水银中漂浮吗 漂白粉露置在空气中发生变化的方程式 1公斤压力等于多少汞柱 质量相同体积不同的铜铝木三个球漂浮在水银中,在水银面下体积最大的是A铜球B木球C铝球D三球在水银中的体积相同 漂白粉在空气中久置会与什么反应 200毫米汞柱等于多少公斤压力? 已知A、B、C、D、E、F、I、X是初中化学常见的物质,其中A、B含有相同的元素,A、B、D、E、X为氧化物,F是天然气的主要成分,C、I为单质.它们的互相转化关系如图所示(图中反应条件已略去).请 漂白粉长时间露置在空气中,最终的产物是什么?是氯化钙,还是碳酸钙,还是两者混合物? 1帕等于多少毫米汞柱?1帕等于多少毫米汞柱 用惰性电极电解AgNO3溶液,接通电流强度为6A的直流电源,通电8分02秒用惰性电极电解AgNO3溶液,接通电流强度为6A的直流电源,通电8分02秒,在阴极上析出3.24g Ag,则阿伏伽德罗常数为_______需详解 请问圆珠笔的笔水有毒吗?就是进入皮肤了,会持久保留吗? 在硫酸铜溶液中放入铝条会有什么现象? 用惰性电极电解足量AgNO3溶液,若有2mol电子转移,在阳极生成11.2LO2 圆珠笔的笔水是什么有毒吗有毒吗 未打磨的铝片放到硫酸铜溶液中产生气泡 用惰性电极电解500ml ph=6的AgNo3溶液,当电极上析出银的质量为54mg时(设电解时阴极没有H2析出,且电解前后体积变化可以忽略),则电解液的PH变为? 圆珠笔水有毒吗? 0.098Mpa=?毫米汞柱
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘