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

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
DELPHI控件Tweblabel的编制 DELPHI中MEMO组件的光标定位 Delphi中RichEdit的奥妙 Delphi中TApplication类 Delphi中日期时间输入的简洁方法 delphi中怎么调用interbase数据库? Memo的Undo功能-Delphi资料 RECT在Delphi中的灵活使用 StringGrid制作只读列-Delphi资料 TADOQuery下主明细表其属性关系如何设置,如何保存主表和明细表?-Delphi资料 TBatchMove用法-Delphi资料 TMemo的真正插入字符-Delphi资料 TREEVIEW的使用-Delphi资料 TreeView在电信综合统计管理系统中的应用-Delphi资料 VB6.0动态加载ActiveX控件漫谈-Delphi资料 捕捉来自 Thread 的异常-Delphi资料 定制Speedbar-Delphi资料 动态产生构件并相应事件-Delphi资料 对Borland可视部件的一处改进-Delphi资料 控件使用技巧-Delphi资料 改变VCL的行为--一个使用可视化元件的实例-Delphi资料 具有不同字体的列表框-Delphi资料 快速大量地更改控件内容-Delphi资料 快速动态创建MenuItem-Delphi资料 利用Delphi 5中调用Excel 97 利用Delphi的Tbitmap控件抓取屏幕图象 利用delphi美化你的菜单 面向组件的系统开发方法-Delphi资料 强大的树型编程控件TeeTree1.01-Delphi资料 确定MEMO控件中的当前行和列-Delphi资料 让字体左、右对齐-Delphi资料 SOS!!求jbuilder 5的borland appserver 的lisense,谢谢解答。 CList和CArray在功能上有什么区别??? CString<-->int 我想做个Treeview,有四层,每层上都有好多数据,没做过,看书也没看出东东来。 寻人:半剑穿心 有一DBGrid问题请教? 生于70年代 一个关于ADO数据库的问题? 我也调查行不行?———你用什么激励自己------- 哥几个乐乐呵呵! 同志们,请教对于文件的操作 !!! 高手思考:C++ Builder 5 动态生成控件,并可以拖动改变其大小,位置 Kylix的so难题?Kylix高手请进!!! InsideCOM中第十章里Util.cpp的报错,请前辈指点。 关于在ATL中使用 ::LoadLibrary("FirmClient.dll")一说 大虾们 过来看看吧 {icongrid 1..192}是什么意思?请教。。。 吴文智,交个朋友,好吗 请问我INSTALL第三方控件怎么老是提示说*.DCU文件not found啊,我用的是D6,应怎么解决? To: foolishtiger(吴文智) ,请教你一个问题!!! 一个关于EJB的问题,急!急啊 请教DBGrid问题如下: tomcat连接数据库oracle?用javabean? 请教:ORACLE ENTERPRISE MANAGER怎么连接 怎样做半透明窗口? 怎样用程序安装输入法? InsideCOM中第十章里Util.cpp的报错,请前辈指点阿。 dephi中有没有显示流程图的控件? 数据库有自动加锁的功能。那我是否可以在一个过程中,靠代码去主动给一个表,多个表加锁,解锁呢?? 一道scjp考题,问题答案都有,谁看明白了给俺解释一下,会送分的 急急急,40分想送!!!!! b/s结构下的新邮件提示问题(重赏!!!) 哪里可下载WINXP DDK和SDK 别忘了向我祝贺啊,今天也是我的生日!! 如何让光标不离开DBGrid的当前行,就将当前记录的修改提交数据库 好心的大虾们,帮帮我!有关gis的 ORACLE的触发器怎么弄 用C++怎样统计文本文件中的字符个数,请给源代码 讨论:不经人大批准给公务员加薪是腐败行为? http://www.csdn.net/expert/topic/389/389043.shtm 怎么样才能将*.pdf文件转成*.doc 急急急急……快帮忙,icevi,弱水快帮忙。 JAVASCRIPT 中怎么样用VBA的函数? 用VB怎样遍一个程序用列表的形势,找到并显示局域网中所有已经打开的SQL服务器名? C++标准类库中有没有类提供<<操作符输出调试信息? JAVASCRIPT 中怎么样用VBA的函数?我急呀~ ~~~~~~好心的大虾们,帮帮我,关于gis~~~~~~~~~~~~ 关于在mfc中使用stl中的警告问题? 关于视频播放控件的开发 在单位上了网通,我们通过局域网上internet,可是服务器装了wingate…… 怎样在程序里实现window下“打开方式”对话框,具体用什么类? 我下载了好多经典书籍(十几本),都不知道该从哪儿看起? 作文童年趣事童年趣事 怎么读数(重点0的读法)怎么写数(重点0的写法 老师让写一片作文,《一堂精彩的语文课》,要用到侧面描写,600字左右 快 速求 某数加上3.4就得整数,这个数减去3.7所得的差的整数部分是最小的两位小数,这个数是( )谁能帮我回答上, 快乐语文2011征文《伤痕累累的地球》怎么写?400字的,要小学生的, 3002000用汉字应怎么书写读法(小学数学题) 童年趣事作文 (x-1)(x+3)=12怎样十字相乘. 一堂精彩的语文课 作文教我怎么写就行了!今天就要答案 作文《童年趣事》550字左右!要给我一个启示,激励我的将来!要大约7-8岁时候的事情! 我想知道这个数学符号的意思和读法 一堂语文课作文 该怎么写?先写什么再写什么?要怎样才能写好?这是我的开头部分,接下来该怎么写?在我的学校生活中,上过无数节各种各样课,它们就像一艘大船,载着我在知识的海洋里 也是一堂语文课 作文600字 《童年趣事》 作文要是真实的,自己写的,越快加的分越多! (3/x-3)-(2/x-2)=(1/x-1)是不是用十字相乘 2X^2+3X+1十字相乘 咖啡因(化学式为C8H10N4O2),咖啡因能兴奋中枢神经、消除疲劳.如果一杯咖啡含有194mg咖啡因,你知道这杯咖啡中有多少个咖啡因分子吗? 数学的读法请问万位上全是0(例:300003000),该不该读? 是读 三亿零三千,还是读 三亿三千? 十字相乘3X^-2X-1 将250ml,密度为1.1g/cm^3 H2SO4的质量分数为24.5%的硫酸中适量铁屑充分反应.计算(1)此硫酸中H2SO4 的物质的量浓度(2)生成H2的体积(3)将生成的硫酸亚铁配成400ml 溶液,此溶液中硫酸亚铁的物 (x+1)(x+2)(x+3)(x+4)-8 十字相乘因式分解. 小数点是小数和整数之间的( ).(是不是分界线) 12.6gNaHCO3(s)加热一段时间后,测得剩余固体的质量变为9.5g,(1)求生成Na2CO3的质量(2)当剩余固体的质量为多少时,表明NaHCO3已完全分解 幼儿园阿姨发糖果,每人4个,则多10个;每人5个,则少4个,有多少个小孩?他们共分多少个糖果? 小数点是整数与小数的分界线 这句话对吗?小数点是整数与小数的分界线这句话对吗? 取一定量的Na2CO3和Na2SO4混合物溶液与过量盐酸反应,生成2.016LCO2(标准状况),然后加入足量的Ba(OH)2溶液,得到沉淀的质量为2.33g 试计算混合物中Na2CO3和Na2SO4的物质的量分别为多少? 读法103965192 有一个小数,去掉小数点后得到另一个整数,这个整数比原来的小数大1976.04,原来的小数是几?帮我把! 某百货商城经销一种儿童服装,每件售价50元每天可以销售80件,每件可获利10元,为了迎接六一儿童节,商场决定采取适当的降价措施,扩大销售量,让利消费者,经市场调察发现:每件童装每降价一 因式分解:(x-1)(x-2)(x-3)(x-4)-48 (最好用十字相乘) 小数是由整数部分,小数部分和小数点组成的. 整数部分是零的最大一位小数与最小一位小数的和是(),差是() 我最喜欢的一堂语文课 作文600字 高一化学物质的量计算题不要复习题 新生做的 一个三位小数的整数部分是零,这个数最大是几,最小是几? 我最喜欢的一堂语文课 作文哥哥姐姐们,差不多400字,不要太多. 高一化学计算题我要怎么办? 3x^2+x=0 用十字相乘分解(要过程)一年没用了,忘记了.. 求我最喜欢的一堂语文课作文.600字以上 各位高人我急需一篇以快乐生活快乐语文为话题的作文 快乐语文的征文“热爱生命 快乐成长”怎么写?急.............. 我最喜欢的第一堂语文课 作文 初中的300个字就行了! 要新生的速度来啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 我要一篇以'不在等待'为话题的作文 快乐语文有《热爱生命 快乐成长》的征文吗?如果有, 作文:我最喜欢的一堂语文课 某百货商场经销一种儿童服装,每件销售50元,每天可以销售80件,为了迎接“六一”国际儿童节,商场决定采取降价措施以扩大销售量,经市场调查发现:每件童装每降价1元,平均每天就可多销售10 有关于“热爱生命,快乐成长”的征文吗 小学四年级数学奥数题第一位数是66,第二位数是54,从第一位数拿多少是第二位数的2倍 把含硫酸铵和硝酸铵的混合液aL分成两等份.一份加入bmolNaOH并加热,恰好把NH3全部赶出.另一份需消耗cmolBaCl2沉淀反应恰好完全.则原溶液中NO3- 的浓度为?答案为(2b-4c)/a 快乐语文《热爱生命 快乐成长》的100个题目不要别的,只要那100个题目. 一个五位数的千位上是6,这个五位数的近似值最小是几万,最大是几万. 高一化学题4(计算题)质量分数为20%,密度为0.93g/cm3的氨水与质量分数为5%,密度为0.98g/cm3的氨水等体混合所得溶液的溶质质量分数为 A.=12.5% B.<12.5% C.>12.5% 求解 征文《热爱生命,快乐成长》怎么写? 数学思维好有多少种读法?数学 学思 思 思维 维 维 维好 好 好 好 好 怎么写好童年趣事这篇作文 为了庆祝六一儿童节,百货商店童装部所有童装降价30%出售 点点的妈妈要买1套童装,上衣原价298元,裤子原价188元 他带了400元, 关于十字相乘分解的计算题 1.(2x+1)(3x+3) 2.2x^2-x-3 3.3b^2+14b-5 整数部分相同的最大三位小数减最小四位小数的差是 兰兰向妈妈要6角钱买一根冰棒.妈妈叫兰兰从袋子里取.袋子里有1角、2角、5角的纸币各6张,兰兰要拿六角钱,可以有几种拿法?用算式表示出来. 3x^2-2x-6用十字相乘法怎么算?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn