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

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
为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得·福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯·刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 科技界最聪明的人:Facebook首任CTO激情燃烧的岁月 DIRECTX3D问题 如何统计字符串中的字符数量! 怎样知道自己电脑的声卡是什么型号?并安装相应的驱动程序? 跳转窗口的时候如何消除工具栏 使用cuteftp时出的错! 怎么能添加一个链接 寻求使用rtp/rtcp的实时视频传输例子!! 输入法与文字处理程序间的关系是怎样? 如何使数据窗口的全部数据默认选定!? 请问,Delphi中有类似VC的静态变量吗? 想要一个用jsp做的新闻发布系统 请问ORACLE的凭证检索失败是怎么回事?--谢谢 char *mdd=5 内存中进行了什么动作?可否解释一下 我想问多下,那wininet.dll 文件是不是nt的系统都有噶? 搞得我头都大了的"多媒体"问题??????????? 重新调用一个方法。 Query的问题? active report作出的报表地下怎么会有这个公司的广告呀? 求救:关于树在建立游戏模型上的应用,及说明 Win2000下屏蔽Win键 怎么把字符串拷到另一个字符串数组里 Delphi_Li(Delphi Li) ,lincanwen(海) ,Focus(老鱼) 刚才关于opengl的帖子手一发抖就给结了,对不住,麻烦来领分,谢谢各位 请教大家关于 认证考试 的问题 更改窗口标题条文字 jsp连接domino数据库? 帮我分析一下!!!!!!!!!!!!! 关于oracle的问题,很急 capDriverConnect函数和capDriveDisconnect函数疑问 crystal report 的问题 Delphi调用win32函数的帮助borland公司提供了吗? 请介绍几本考网络设计师的参考书! 怎样设置另一个对话框IDC_EDIT的值 在线等待:在Java中是否有权限修改一个文件的权限? 【 刚才很生气,深圳农民意识的人太多了,做出的事情好可笑,我很生气 】 急需Java程序员 有谁用过链接服务器? 关于用java连接domino数据库? 如何判断一个已打开的socket的状态? 坏习惯不知道该不该改,给个建议。来者有分! vc sdk下作'帮助'功能,怎么写代码.需要什么资源? 看看这个错误。有关ADO 连接sybase 数据库的问题。 各位大哥,救救小第吧。分数随你开口(我有1357分)。拜托拜托!!!! C++ primer中文版中的几个错误! 如何将MSHFlexGrid1控件中的数据写到EXCEL文件中,最好能给出详细说明!在线等待 有天津的朋友吗?我请教个问题,谢谢。 数据库连接的问题 怎样在代码中改变CComboBox中下拉框的高度? *** Application 中文件的读与写 *** 关于jsp里的浮点数位数的问题(急!!!) c++ primer中的几个翻译错误! 高分求解,不够再加,我有900分,在线等?关于重载DataGridColumnStyle 初中生必须掌握的几个物理公式都是什么? 电流对人体的伤害分为哪几种 为什么美国西南部有一块温带热带沙漠气候? 你好.一质量为m的物体恰能在质量为M的斜劈上匀速下滑,斜劈保持静止.现用一沿斜向下的外力F推此物体,使物体加速下滑,设此过程中斜劈受到地面的摩擦力为Ff,支持力为FN,求Ff和FN. 还是这道 电压表所接电阻断路短路时示数变化 男女之间的 求物理公式大全 电流对人体的作用有什么伤害 安第斯山脉海拔1500米以下的山麓为( )带,分布着大面积的( ),海拔1500-3000米之间的山区为( )带海拔3000-4500米之间的山区为()带,分布着大片的( )和( ) 放置在水平地面上的斜面M上有一个质量为m的物体,若物体m在斜面M上方恰能匀速下滑,请看图,我照下来了:http://i45.tinypic.com/6p3zfd.jpghttp://i50.tinypic.com/wmm103.jpg 断路、短路各自对电流表、电压表、定值电阻、滑动变阻器的影响例如:断路时,电流表无示数=0,电压表示数较大接近电源电压.如果将数十个小彩灯串联后接在电压U的电源两端,均正常发光, 天平的平衡螺母安装在什么位置?如果横梁的左臂偏高,应该向哪个方向旋转平衡螺母?快啦~~~~~ 如图所示,一质量为m的物体A恰能在倾角为a的斜面体上匀速下滑.若用与水平方向成θ好的再+20 关于电流大小对人体伤害(1A=1000mA)物理沪科教科书上写当流经人体的电流为1mA时人体会产生麻的感觉,10mA~100mA(0.1A)时就会发生致命的危险.但是我们在实验室做关于测电流、电压、电阻的实 电流对人体造成伤害主要取决哪些因素 一质量为m的物体,在倾角为a的斜面上恰好能沿斜面匀速下滑,这是斜面体在水平面上静止不动.现用力沿斜面向上的方向拉该物体,使他沿斜面匀速上升,斜面体仍静止不动,求此时地面对斜面体 电流通过人体有什么危害吗?用手摸电源插座有时有电的感觉,但是不是很严重,可能是火线,请问只触摸一条火线对人体有害吗?只摸一条火线没事吧?感觉像针刺一样,有点麻,但是能忍受.用手按 电流对人体的伤害有哪些? 《我心目中的鲁迅先生》或《读鲁迅先生文章有感》怎么写? 故乡 鲁迅第二段所表达的思想感情在文中起什么作用 如图所示,斜劈形物体的质量M,放在水平地面上,质量为m的粗糙物块以某一初速沿斜劈的斜面向上滑,d选项为什么不对如图所示,斜劈形物体的质量M,放在水平地面上,质量为m的粗糙物块以某 已知下面的哪组数据,可以算出地球的质量M(引力常量G已知)A月球绕地球运行的周期T1及月球到地球中心的距离R1B地球绕太阳运行的周期T2及地球到太阳中心的距离R1C地球绕太阳运行的速度V3 怎么让水瞬间结冰?怎么能让水瞬间结冰?教教我方法. 如图所示,一质量为m的滑块,在粗糙水平面上的质量为M的斜劈上下滑,斜面光滑,下滑过程中,M始终静止,则下列说法正确的是( ) 若斜劈M粗糙,m减速下滑,说法正确的是( )若斜劈M粗糙,m匀速 已知下面的哪组数据,可以计算出地球的质量M地(已知引力常量G)( ) A.地球表面的重力加速g和地球的已知下面的哪组数据,可以计算出地球的质量M地(已知引力常量G)( )A.地球表面的 如图所示,质量为M=5kg的斜劈型物体静止在粗糙水平地面上,质量为m=1kg的物体在沿斜面方向的外力f=10n的作用下沿斜面匀速上升.求m和地面间摩擦力的大小? 质量为M的斜劈形物体放在水平地面上质量为m的粗糙物块以某一初速度沿劈粗糙斜面向上滑速度为零后又加速度返回物块始终静止物块上下滑动过程中.A物块m上滑>下滑时间B 物块m下滑对斜劈M 作文:读了鲁迅的文章(哪一片都可以),你有什么感想?不用太多,两三行就行了 福建省与江西省一什么山脉为界 鲁迅《故乡》的读后感,100字左右,麻烦一下了,写得好加分.. 你读过鲁迅先生的哪些文章,先简介内容,在写写自己的感想.急需、、、、、、急需、、、、、、谢谢 福建的山或水有哪些美丽的传说? 十篇关于鲁迅小说的读后感200~300字紧急!把老本都豁出来了悬赏分还要加只要200~300字.多了不要情势突变= = 不好意思只要5篇 南极旅游的最佳季节是什么时候?南极能去 旅游吗?有 单人的吗? 福建武夷山属于山地还是丘陵 鲁迅(故乡)读后感快 想去南极旅行,请问最好的旅游季节是什么时候呢? 在风速24km每小时的条件下.两机场之间的航程 太阳系中除了八颗行星外还有什么天体围绕太阳转 南极旅游对南极有哪些有利和不利影响 年平均风速是不是就是平均一年中每天24小时都是这个风速 太阳系除了九大行星还有什么天体绕太阳公转阿?如题.要4个. 设计应用性的定义 风速每小时*公里怎么算的? 南极地区的年降雨量只有50毫米,为何会有如此多水? Doolittle 分解唯一性的条件是什么要求矩阵可逆吗?另外计算矩阵的Doolittle 分解,哪种方法最快呢?计算量最小 电流对人体的危害与什么因素有关 因为干旱所以降雨量低 还是因为降雨量低所以干旱 植物的呼吸作用与水份有什么关系? 电流对人体产生危害的根本原因电流(电压)为什么会导致人心跳呼吸停止而死亡?根本原因是什么呢? 一个重为5N的小球,体积为0.5分米³,如果它浸没在水中,他是上浮还是悬浮还是下浮?(g=10N/kg) 维生素C具有什么性?加热就会分解 养鸡场有母鸡x只,小鸡的只数是母鸡只数的20倍,一共有鸡( ) 闽北地区的南平市,武夷山市,邵武市,建阳市,建瓯市,光泽县,松溪县,浦城县,顺昌县等所在城区人口有多少?只要闽北地区各个市,县的城区人口的详细数据就可以. 什么是装置的气密性?碱式碳酸铜的分解产物是什么? 养鸡场有母鸡和小鸡3325只,其中小鸡的只数是母鸡的2.8倍,母鸡和小几个有多少只 php是解释性的语言,和编译有什么区别? 电动车2年多,铅酸电瓶加蒸馏水还是稀硫酸?晶胶电瓶加什么? 某养鸡场养母鸡800只,养的小鸡比母鸡只数多八分之五,小鸡比母鸡多多少只? 热带沙漠气候主要分布在那个热带还是温带?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘