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

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
在VB中利用API实现窗体的平滑显示 在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 在系统菜单上添加自定义菜单项 -VB资料 在运行时动态生成多个相同的控件?-VB资料 在最小化状态时提供提示 -VB资料 暂时禁止窗口更新-VB资料 VB怎样得到文本框(TextBox)中的文本行数? 制造出透明的Form -VB资料 VB制作半透明窗体和形状不规则的窗体 VB制作方向按钮 VB制作渐变的窗口背景色 字体闪烁 -VB资料 自动改变控件大小-VB资料 自制IE风格按纽控件-VB资料 VB6.0中通过MSChart控件调用数据库 用VB6实现动态增减控件 ActiveX控件的创建-VB资料 ADO控件和DATA控件的冲突(不能共存)的解决方法-VB资料 Combo的自动查询技术 -VB资料 DirectX7.0使用心得(1) -VB资料 DirectX7.0使用心得(2) -VB资料 有挑战性的翻译,请翻译下列C++名词,并请举例说明 麻烦大哥们看看!关于wab应用中在datagrid中取值的问题 如何实现CSDN这样回答问题的效果? 初级问题,请各位大侠帮忙! 数据结构中关于二叉排序树的生成问题 请教高手:如何在一区域找到找到指定颜色的点?? 一个关于窗口的问题 如何在数据窗口实现编辑、修改等后的撤消、复制、粘贴、剪切功能! exec,sp_executesql语句,中字符串变量的问题 急~~~~(请赐教)! window.showModaldialog()问题 关于Internet Explorer不能打开链接的问题 求助 求购:中国地质大学(京)网络历年考研题复习资料 Longhorn与WINDOWS2003是何关系? applet的执行顺序问题?? 在数组里找到最大值的函数是什么? 没有监听器? VB .NET能用于AutoCAD开发吗? 如何用OnMouseWheel实现Image的放大缩小? 装了Media Player 9.0,怎么没声音? 如何将DataSet中的数据全部写入数据库? 简单问题(关于光标移动) 一个关于java的小问题要请教? 请问delphi中有二~十进制的转换函数吗..... 关于不同页面调用的问题,谢谢 can't open the file"cos.obj" 这里到底怎么了?有人“非典”发作了? 关于STL的问题: dreamwearver mx如何预览asp.net的一些控件>? 关于日期格式的问题 如何使自己的程序访问别的程序的内容? 很初级的问题. 关于DB2的培训资料或者ppt 初学JAVA希望大家介绍点好书,有分的哦~~~~~~~~~~ 关于DB2的培训资料或者ppt qqf (我就是我) 可以进来一下吗? 准备作一个短信项目,请做过类似项目的高手不吝指教! 关于刷新框架内页面的问题! 请教,真的很急,来看看,,, 帮忙出主意呀, 新认识一个MM, 特骄气, 爱好也少,怎么哄呀,或者兄弟们介绍一下经验. 求delphi 5开发人员指南 电子版 如何用四叉树进行图像压缩源代码 小问题 谁对nil理解的多呀,哈哈,来看看哦,超级难题 开机自检的时候屏幕花屏,无法进入操作系统。图形模式下花屏,文字模式下正常,怎么解决? 高分求助,JS菜单问题,在线等 我需要msdn最新版 连接 vb做报表的问题 好书推荐 我的站点怎么必须登陆? 这样能释放链表内存吗 八年级上册物理人教版导学方案期中单元评价答案(改版的 叫问题解决导学方案),老师下一节课要对 我要用人教版的 山西出版传媒集团 山西教育出版社 出版的 有几种记课堂笔记的好办法? 山西民风民俗(口语交际)大约100字 怎么上好历史导学案课呢? 怎么记初中语文课堂笔记 满族风俗的习作 结合教学实际说说如何上好一节数学课? 高中应怎样记课堂笔记感觉课上笔记很紧张,觉得是不是应该改变方式,问下 求埃菲尔铁塔和比萨斜塔美图 2011社会热点话题是什么? 2010最近热点话题越多越好啦! 澳大利亚历史悠久的景点是什么?类似于比萨斜塔、圣保罗大教堂、埃菲尔铁塔,但要是澳大利亚的.类似于比萨斜塔、圣保罗大教堂、埃菲尔铁塔,但要是澳大利亚的.注意是——类似于 如何作课堂笔记?如何作 English 笔记?如何学 English?如何学 math?THANK YOU VERY MUCH! 未选择的路诗中流露了作者一种什么复杂情感 繁星共多少首?春水多少首?她的诗集被茅盾称为什么 过年挂红灯笼的典故是什么 和李自成有关 分析《百年孤独》中的魔幻现实主义特色问答题 30分 《繁星》《春水》被茅盾称为 求几个辩论会主题,最好简单一点,时代感强一些尽量多一些,能再加两个与大学生有关的吗? 这是哪篇课文啊 口语交际·习作训练七:写一个给人留下深刻印象的人 习作要求:一个特点鲜明的人,总是给人留下深刻的印象,即使偶然见上一面,他(她)的音容笑貌、举手投足,也会留在心中挥之不去.这 怎样做课堂笔记 为什么说意识形态能够发挥“观念的力量”的作用? 帮忙翻译以下句子:法律,信任和信仰,文化,影响人们的健康. 如何做课堂笔记 为什么说意识形态能够发挥观念的力量 英语翻译rt, 论2010年热点话题,最好是关于房产的 谈论2010年热点话题 大于150字 怎样测蚂蚁体内酸碱度,也就是Ph为多少? 马的典故和来历 2010年至2011年的政治热点话题 ? 中兴U960s手机没有自带的Recovery!如何刷入Recovery?手机已ROOT.通过各种方式刷入Recovery,有的提示成功,但只要进入Recovery模式就是这个样子 谁能告诉我关于马的典故啊? 这哪篇课文里的 如何没有root进入recovery模式 结构力学 09年的热点话题小学六年级下册第二单元口语交际急用 手机在没有root的情况下怎么刷入第三方recovery啊我的oppo finder升级到4.1.2后,无法一键root,我下了个root包和第三方recovery,怎么刷入第三方recovery,官方的recovery无法安装root包 一个正方体的棱长是6厘米,如果把8个这样的正方体合成一个大的正方体,这个大正方体的棱长总和是多少? 一袋牛奶5分之1升,一盒牛奶2分之1升.(1)周末,李阿姨到超市买了4盒牛奶和5袋牛奶,一共是多一袋牛奶5分之1升,一盒牛奶2分之1升.(1)周末,李阿姨到超市买了4盒牛奶和5袋牛奶,一共是多少毫 盐类的水解PH大小的判断方法.怎么判断2种物质的PH呢?希望特全,最好给例子.给的全 多加50分, 关于马的典故 少的 洁白牌洗洁精每瓶25元,王阿姨准备给单位购买12瓶这种品牌的洗洁精,甲超市买五送一,乙超市打八五折,到哪家比较划算?瞎掺合的爬, 盐类的水解PH一定发生变化吗 当前中国的文化信仰方面应该怎么做呢 csonline中C4爆炸倒数时的英文句子及解释twenty second 后面说的啥 然后等一会就倒记时了 急救:盐类的水解与PH值!某温度下,0.1mol/L醋酸溶液的PH=3.将该温度下0.2mol/L醋酸溶液和0.2mol/L醋酸钠溶液等体积混合后,混合液的PH=4.7.下列说法正确的是()并说明原因A 该温度下,0.01mol/L醋酸 古人谈读书说要把“厚书读薄,薄书读厚”,所谓“薄书读厚”即孔子所说的( )(五个字). 一个做直线运动物体的位移随时间变化第二题 求详解! 高中常见盐类的水解的PH值?要准确的PH值,是盐溶于纯水中 我说的是化学上得盐类如NAHCO3,NAHCLO等 电流表测的是哪个电流a为电流表,b为电压表 守时 阅读 我得到了什么启示 下列句子的语病分别在哪里,福建省福州市荣获“全国卫生城市”的原因是全市人民共同努力的结果. 马的典故有什么 比较PH的大小比较PH 0.1mol/L的(NH4)2SO4 和NaHSO4 PH 哪个大?为什么? 课堂笔记怎么记? 谁知道关于''马''的典故 那导学案 与学案 ,两者制作的交叉部分岂不太多了?它们都贯穿全节课哦! 怎样记课堂笔记? 语文民族风俗口语交际 男子把10公斤黄金扔进垃圾场 当地掀美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局日驾校人性化服务多 学车之余可美甲还美国家安全局称奥巴马对监听默克尔一事美国处方药价格高昂 民众被迫违法购外医改网站技术问题百出 奥巴马上教堂也阿根廷举行中期议会选举 女总统执政联阿根廷举行中期议会选举 执政联盟面临西班牙巴塞罗那发生列车脱轨事故 造成马达加斯加大选结束 各方观察团认为投格鲁吉亚总统大选启动 共计23名参选美国航空公司改签费攀升 消费者“斗智美国旧金山湾区万圣节前多起驾车枪击 韩“独岛”宣传片擅自使用日剧画面 视美共和党参议员计划推迟耶伦的美联储主俄圣彼得堡市长称正在考虑申办夏季奥运格鲁吉亚总统选举:执政联盟候选人以6篠田麻里子圆空姐梦 助阵桃子航空新航中国品牌闪耀约堡国际车展(组图)土耳其总理:只有中国退出才可能购别国辽宁舰绕台后,台军演习模拟“歼灭”解英脱欧将争取好的待遇?默克尔:不能光市规土委辟谣“副中心与北三县合并”北京下月实现跨省异地就医直接结算检方3年审查起诉电信诈骗案261人天津独流进行逐户排查七人涉制售假调料落雪飞花“北京应研究个人生活垃圾定量标准”老旧小区停车位有望得到扩充家是方向今夜雪 明大风原版刷印《清敕修大藏经》入藏故宫辽宁首次对外确认经济数据造假媒体:公开佟丽娅朋友圈经过她同意了么新疆铁路部门加开成都方向旅客列车新疆台春晚进入最后彩排 草根达人集体习近平总书记给库尔班大叔后人回信在额郎平赴美接受髋关节手术勇士大胜骑士复仇成功中国足协瞄准东京奥运圆梦云南山区福利院孩子“微心愿” 感
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘