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

VB如何从文件中提取图标

HTML文档下载 WORD文档下载 PDF文档下载
VB如何从文件中提取图标



使用下面的示例,你可以方便地从EXE,DLL及ICO文件中提取图标。该示例程序使用ExtractIconEX API函数从文件中提取图标,并返回图标句柄,然后利用该句柄,使用DrawIcon函数将图标绘制到目标设备中。最后清除句柄以释放系统资源。

创建新工程后,在工程中添加对Standard OLE Types的引用,然后在工程中添加一个标准模块。将下面的代码粘贴到标准模块中:

Option Explicit

Private Type PicBmp
Size As Long
tType As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, _
ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal _
nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long

Private Declare Function DestroyIcon Lib "user32" (ByVal hicon As Long) As Long

Public Function GetIconFromFile(FileName As String, IconIndex As Long, UseLargeIcon As Boolean) As Picture

'参数:
'FileName - 包含有图标的文件 (EXE or DLL)
'IconIndex - 欲提取的圉标的索引,从零开始
'UseLargeIcon-如设置为True,则提取大图标,否则提取小图标
'返回值: 包含标标的Picture对象

Dim hlargeicon As Long
Dim hsmallicon As Long
Dim selhandle As Long

' IPicture requires a reference to "Standard OLE Types."
Dim pic As PicBmp
Dim IPic As IPicture
Dim IID_IDispatch As GUID

If ExtractIconEx(FileName, IconIndex, hlargeicon, hsmallicon, 1) > 0 Then

If UseLargeIcon Then
selhandle = hlargeicon
Else
selhandle = hsmallicon
End If

' Fill in with IDispatch Interface ID.
With IID_IDispatch
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
' Fill Pic with necessary parts.
With pic
.Size = Len(pic) ' Length of structure.
.tType = vbPicTypeIcon ' Type of Picture (bitmap).
.hBmp = selhandle ' Handle to bitmap.
End With

' Create Picture object.
Call OleCreatePictureIndirect(pic, IID_IDispatch, 1, IPic)

' Return the new Picture object.
Set GetIconFromFile = IPic

DestroyIcon hsmallicon
DestroyIcon hlargeicon

End If
End Function
在窗体中添加一个PictureBox控件和一个命令按钮,把下面的代码加入到命令按钮的Click事件中:

Set Picture1.Picture = GetIconFromFile("c:\windows\moricons.dll", _ 0, True)

按F5运行程序,点击命令按钮后,PictureBox会将文件moricons.dll中的图标索引为零的图标画到PictureBox中。

VB与Windows资源管理器互拷文件 VB中DOS文件名与长文件名的转换 VB中的Unicode 和 Ansi 格式 VB中如何实现文本查找功能 VB中自制文件搜索器 Windows 初始化文件的修改 -VB资料 Word 97与WPS97的完美结合 -VB资料 比较两个文件-VB资料 采用递归算法删除带有多级子目录的目录-VB资料 菜单项的动态装入 -VB资料 处理加了密码的MDB文件-VB资料 VB创建临时文件 从公共对话框控件中提取多个文件名称 -VB资料 从全路径名中提取文件名 -VB资料 打印MsChart之类的控件 -VB资料 谈谈在VB6.0中如何使用资源文件进行编程 动画图像分解在VB动画设计中的应用 多重文档界面设计方法-VB资料 恢复回收站中的文件 -VB资料 VB获得位图文件的信息 VB获得文本框中光标所在行的内容 VB获取程序工作路径的方法 VB获取文件或文件夹属性 基于VB的通用折行打印程序 基于VB和EXCEL的报表设计及打印 VB建立多级目录 -VB资料 VB建立快捷方式-VB资料 VB建立文件关联 -VB资料 将RichTextBox 之中被选取的内容复制到剪贴簿-VB资料 将我的程序的文本直接送到WORD中(不用粘贴)-VB资料 开启文件属性窗口 -VB资料 进程与线程 在win2000系统下,构建asp+sql的web站点,但在web页中无法显示出小数点前的零? 如何配置sybase的clinet端? 关于webbrowser。 TO:riolee(随风) 关于directshow的 开始菜单中的运行找不到 请问各位谁能提供 CString 里有一个operator LPCTSTR,难道这个LPCTSTR也可以被重载,它不是操作符啊,也不在可被重载的范围中啊? 请问到何处用蚂蚁下载photoshop6.01软件 在UPDATE的时候,如何返回受影响的记录个数?[Oracle8i] 请问各位谁能提供jpeg文件格式的中文说明??????????????????? [question]tmd的,有人惹我,怎么办 Windows CE, Windows NT Embedded等嵌入式操作系统和相关开发工具在上海如何购买??? mobile web application 里的softkey到底是怎么回事呀 [心情不好]砂粉阿 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 ASP新手提问! 有谁知道在DELPHI中得到包括硬盘、多媒体、主板等信息? 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 我要学习数据结构,算法,离散数学..... [不爽阿]今天圣诞,有人惹我 关于临时表的共享问题? 是不是我的问题太难了,没有人回答? 请举例说明:接口是怎样实现多重继承的? 听说最近由于IT行业不景气,程序员的工资缩水了?是真的么? 这样写有什么不对?? delphi的dll库返回后调用程序出错!加了一行无关代码却正常!求教各位大狭! 塔尼包姆出了不1本计算机结构的书,还有1本MICROSOFT的 Microsoft Windows 用户界面开发 请问是否很好 Access初学者问一 再次请教一个sql排序问题,一定给分。 请问:程序中对WM_PAINT,WM_CTLCOLOR,WM_ERASEBKGND三个消息处理的顺序是怎样的? 这个月生意只有上个月的1/5,怎么回事? 我女朋友说最爱她的人不是我,这意味着什么? 工资里导入上月数据怎么实现 谁有复读王(fyfdw2001)的注册码? 经过一段时间的努力,我做出一套电话语音邮件系统,可以用电话和手机来收发EMAIL,有意者请与我联系 xuyaoliang@263.net 请救救我吧!有谁能告诉我中程的分数怎么查! 如何解决数据窗口显示照片(此照片在数据库的一个字段里)的问题? 请问如何获取硬盘和光驱的型号信息 谁有复读王(fyfdw2001)的注册码??????? n_up的问题。如何在另一列插入计算字段? 有没有深圳的mm,一起过圣诞好吗? far怎么用啊? 关于临时表的共享问题?? 在括号内填上恰当的成语或合适的诗句夏日炎炎,( ),我们到玄武湖风景区游玩,那里的荷花开了,真是( ),( ).泛舟湖上,让人( ).“六月的天,孩子的脸.”忽然间,“( ),( .)”大雨倾盆 371,429,516反别除以A后所得余数相同,则A=? 皇帝的新装故事简介50字左右 在括号里填上恰当的成语,古诗名我很喜欢旅游,每到一处总是免不了感慨一番.登上长城我( )的想起了( ),( ),( )等成语;乘舟漾起西湖,我不禁想起了( )的诗句;来到海边,我( )地想 用一个字概括《皇帝的新装》中心事件 皇帝的新装简介(30字内) 在括号里填上恰当的成语或古诗句⒉我很喜欢旅游,每到一处总免不了感慨一番.登上长城我__地想起了____、____、____等成语;乘舟荡漾西湖,我不禁想起____、___ 皇帝的新装 以_____为中心,以_____为线索,以_____为顺序? 怎么用一句话概括《皇帝的新装》的全文? 纬度和经度都为0度的是什么洋 皇帝的新装的中心意思 皇帝的新装的故事梗概 本初子午线以东的经线为 ,以西的经线为 .东西经度最大值为 .迟到的纬度是 .南.北纬度的最大值为 ,分别位于 和 . 皇帝的新装的中心句是? 皇帝的新装的主要内容 最好是一句话概括 求解双代号网络计划工作C的最迟完成时间和工作C的总时差.求详解3:工作C的最迟完成时间为(). A.0 B.3 C.5 D.11 4:工作C的总时差为(). A.0 B.3 C.5 D.8 生活中有没有类似《皇帝的新装》的闹剧呢? 皇帝的新装的中心思想是什么? 用成语表示下列句子的意思,成语呀1.痛苦伤心得像要死了2.名次排在前面的,很优秀3.喜悦非常,觉得超过所希望的4.容不得怀疑、猜测5.一点好处都没有 皇帝的新装感悟,要联系生活实际 56.96.148被某数除,余数相同,且不为零,求284被这个自然数的余数 与学习有关的诗句,和俗语. 皇帝的新装让我们联想到什么“真实的生活”现象?说说你的看法安徒生说:“最奇妙的童话都是从真实的生活中产生的.” 57,59,148被某自然数除,余数相同,且除数比余数大14,求除数和余数 地理算时差的怎么算求时差和经度的计算公式,写在下面 请问《皇帝的新装》中反映生活的主要方式是什么?麻烦大家快一点 英语翻译我校举行科技节,有一项发明很吸引外来参观者的眼球,而我就是这位发明者,下面就让我来介绍一下我的发明——护理机器人.只支持人工翻译哦!用机器译的就不要复制上来了!因为这 地理时差怎么算 皇帝的新装 这个故事在现实生活中有类似的情况吗简要分析急 英语翻译不要用翻译器,请纯人工翻译翻译句子时,能把句子主要想表达的意思说清楚就可以了,如果可以的话,最好能运用多组词组,一些高级句型,新年快乐!1.当今中国社会诚信问题凸显:虚假 关于地理时差计算每隔经度15°就一个时区,而跨过日界线就加或减一天,那么东八区和西八区相差多少个时区?(按照越过日界线计算),那东八区八月八日晚上8点,西八区是几月几日几点? 0°经线以西为——,越向西经度越,以东为 ,越向东经度越 .经线又称 ,经线... 皇帝的新装续集一百字左右…… 我就是看书上写的,有一点儿不明白:假设日本是5月5日中午12点,美国是5月4日晚上8点,问是从日本飞美国辛苦还是美国飞回日本辛苦..它的解释是,因为从日本飞往美国,“一天”的时间少于24小 皇帝的新装告诉我们: 皇帝的新装续 如图,圆心为北极点,阴影表示夜半球.此时,全球同属一天,问M点的经度是多少?请附带你的解题思路和过程,M点为甲东边第三条经线与纬线圈的交点 皇帝的新装 皇帝的新装续写作文 填成语猜谜语.( )针引线 ( )上添花 ( )冠禽兽 ( )月披星 ( )颜薄命( )言巧语 ( )苦连天 ( )目了然 ( )东击西 ( )天动地( )马奔腾 ( )喻户晓 在经纬网的地图上经线指什么方向,纬线指什么方向 续集有没有更经典的?大哥大姐们,帮帮忙啊! 填成语,猜谜语1.焉不详 能自已 弓之鸟 心向背不旋踵 一而足 戚与共2.少离多 眉焦急 泻千里 水思源缄其口 步穿杨 盘狼籍3.起彼伏 径通幽 争朝夕 接不暇作之合 行下效 征无战 请问在有经纬网的地图上,根据经纬网辨方向,经线指示什么方向?纬线指示什么方向?黄土高原的生态环境十分脆弱,制约其农业发展的最关键因素请问是什么和什么 皇帝的新装(续) 填成语 猜谜语 1、填成语 猜谜语先把成语填完整,再把所填的字按顺序连起来作谜面,打一动物.( )针引线 ( )上添花 ( )冠禽兽( )月坡星 ( )颜薄命 ( )言巧语( )苦连天 ( ) 皇帝的新装(人物的性格特点)大臣(官员):皇帝:小孩:骗子:要简洁明了! excel 取余数想知道在EXCEL哈函数中求商加余数的函数,单独求余数也可以 猜谜填成语1不考虑中间( ) 2总共五句话( ) 3火车上演戏( )4骑兵踩地雷( ) 5单口说相声( ) 6一个巴掌打不响( )7走遍千家串万户( )8邮筒堵塞了( ) 9孩子玩跷跷板( )10桃花 皇帝的新装人物特点 整除余数问题3的161次方=5(mod 7)怎么证 猜谜语,填成语八分之七 皇帝的新装中 各个人物的性格特点具体一点 excel 中整除的公式是什么比如812除以100商8余12,请问商8怎么用函数表达出来 英语翻译他已下定决心去外国求学 (pursue) 皇帝的新装 各个人物的性格特点 英语翻译纯人工翻译下列3句话,机器、软件的就免了,PS:请使用词组、从句翻译上述句子(最好不要翻译成“主谓宾”的简单句式)1.根据调查,目前中小学生中常出现身体多病、近视、晕倒等 智猜谜语.根据前面的古诗,在括号里填上恰当的成语:谁知盘中餐,粒粒皆辛苦 皇帝的新装里人物的性格特点 皇帝:两个骗子:老大臣:百姓: 皇帝的新装 主要内容 要短30字
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn