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

VB如何在VB中用API获得EXE文件图标并显示在Picture控件里

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在VB中用API获得EXE文件图标并显示在Picture控件里

Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Sub Command1_Click()
Dim total As Long
Dim p(50) As Long
Dim i As Integer
Me.Picture1.Cls
Me.CommonDialog1.Filter = "图标|*.Exe;*.Ico;*.Dll"
Me.CommonDialog1.ShowOpen
If Dir(Me.CommonDialog1.filename) <> "" Then
If ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1) = 0 Then '如果没有图标
MsgBox "No Icon!"
Else
total = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1)
'取得总图标数
For i = 0 To total - 1
p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, i) '读取每个图标
Next i
For i = 0 To total - 1 '依次显示每个图标
DrawIcon Picture1.hdc, 34 * i, 0, p(i)
Next i
End If
End If
End Sub


富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 DataTorrent 将数据分析速度从“实时”提升至“现在时” 华为FusionCube开启全球规模商用 黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 最新版Chrome OS加入Word和Excel编辑功能 直指微软 传诺基亚将购诺西全部股份,疑为出售手机业务做准备? 优秀技术领导者的修成之道 直接拿来用!最火前端开源项目(三) 第八届开源中国开源世界高峰论坛成功举办 曾经那些主流的API,而今风光已不再! Android 4.3本月9日亮相 新功能汇总 移动游戏的国际化运营技巧 Google的Janus与Facebook的McDipper:将闪存用于数据中心 拥抱开源还是坚守阵地:传统数据库供应商面临抉择 超棒的30款JS类库和工具 立场坚定:惠普仍然密谋回到智能手机市场 6月份浏览器份额:Chrome成市场份额增长最快浏览器 关于PHP的十大误解 你中了几个? 专访西电朱虎明:异构计算硬件架构呈现百花齐放 百家争鸣 win2000下如何给程序指定program ID 急,急,在VC中如何.sql文件(ORACLE) 我的DW不能启动了,问题解决马上给分100! 高手请进,在线等待! 下了一个手机游戏(JAR、JAD),想在计算机上模拟运行一下,该怎么做? 使用 应用程序组装工具 创建.ear,创建.war 在WAS中安装出现错误 !!! 立即给分 怎样改变由 javaw 打开的*.jar文件的图标? 纯粹好奇~水园、昨天晚上发生了什么? 为什么修改httpd.conf后,APACHE服务不能启动? 想买两本书,请看过该书的朋友评价一下,特别是书里的代码是C#的还是VB.NET的? win2000注册表问题 什么时候需要定义过程??? 兄弟们,替我出口气 800*600分辨率下,toolbar显示不完整,请问该如何解决?(100分) 我想在数据窗口中显示年龄信息,但是出错了!! 各位大侠,兄弟很急得问题,80分奉送 [ 新手 ] 请问几个关于时间的SQL语句 用ROUND函数,需要包含哪个头文件? 高手请进,在线等待!!! 怎么样用HTML代码实现在一个.htm文件中加载另一个.htm文件 ??? 哪位大哥有能解析ANS.1语言的东西? 比较大小的简单问题? 用Ras拨号过程中,如何取消拨号? 大家看看合适否? 怎样以逗号为标记分段读取内容? 求救:本地计算机无法启动 oracleserviceoradb 服务! java和.net你们好吗?保重VC。 如何把XML文件导到oracle数据库中? 变量初值问题,高手请进 求通过手机号码判断出手机入网地址(如上海,江苏等)的java接口 如何把htm文件移植到VB.NET中. 妈的找了几天广告交换的网站,怎么全是色情的,正常的网站就没有吗?你们的网站放不放这些东西 。 键盘错乱 高人指点 从.net想到php(欢迎大家讨论) WebService 连接问题????????????????????????????? 如何判断用户是否安装pdf格式阅读器 有什么好办法破解论坛的密码? 一个高难度的问题。100分求教!!! 构建EXCEL后,写入数据为何报错,请邦我看看 DELPHI与ORACLE9I中的BLOB字段存取的问题 怎么关闭窗口? 关于读取图片的问题! 打印口的传输时序是如何定义的 我要在数据窗口中实现出货日期在20天之内的记录的字体颜色为红色,font.color的expression该怎么写?在线等待!!! 请问怎么安装statspack? 如何从整形数字字符串得到相应的整形数字? 关于SQL语句的问题,请各位高手指点,在线等待,对了即给分! 请教关于浮点数的问题 哪里有IDL的资源?提供重要消息者高分相送! WebService 连接问题????????????????????????????? 用jsp怎么实现文件目录的上传? 一起来看流星雨好看还是一起又看流星雨好看 高数等式问题 像呕心沥血、赴汤蹈火地词语 求一个跟赴汤蹈火意思很相近的词语 好像有个水字 lim x→0 (x+e^x)^2/x 的具体解法.我的错,题目应该是lim x→0 (x+e^x)^(2/x).希望你回来帮我解惑. lim(x+e^x)^1/x在x趋向于0时的值等多少啊?希望能给出详细的解法好像答案是e^2呀 lim{1+x/1-x}^(1/x)要解法 X→0 高数计算,这两个等式是怎么转化过来的 求极限,下图等式成立的理由 自然规律先于人类意识存在吗诸如光合作用万有引力之类的科学规律 日本众议院通过自卫队法修正案日大学毕业生3年内辞职率高 官方疑企安倍晋三警卫车队连续两天发生交通事故新加坡两名少年不满被人抱怨挥棍打人被美国迷你航天机“追梦者”试飞降落时滑日本将设国家安全局 拟任命民间人士担美一女子7年对残障男友不离不弃感动众美售P3C首架飞机抵台 马英九称与日10月百城住宅均价环比上涨1.24%北京今日重度污染 邢台唐山长春“爆表军艺宣传处:不清楚李双江身体情况 请94岁川军老兵忆抗战:弹尽之际我们用50只四高一低次新股高送转预期强 总小码哥网页UI培训课程让设计和编程的民间盛传的美容汤滋阴润燥 减肥轻体 海尔“大事件”背后的营销生态系统汤唯为全港最高圣诞树点灯 填色画作助每个女人都应该有件属于自己的性感内衣中信证券虚增万亿互换业务?宋清辉:本盛开金融:互联网金融平台系统包括什么想做全能而高效的模具商,协力靠的是什除海南西藏以外 全国29省份实现高速穿越以和为贵网游之灵感法师剑气凌霄大皇后西游记九爪黄龙异界易筋经神魔九变翩翩女儿身吸血鬼伯爵君王计划陇川旅游奇乾旅游湟中旅游石林彝族自治县旅游雷山旅游秭归旅游清镇旅游昌江旅游长阳旅游黄陵旅游漾濞旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘