跟任务管理器中的列表一样，在每个程序名称前面都显示相应程序文件的图标，这个是怎么做的，也就是怎么获得那些程序的图标？
请各位高手指教。最好能有具体的源代码。谢了
-
如题。
跟任务管理器中的列表一样，在每个程序名称前面都显示相应程序文件的图标，这个是怎么做的，也就是怎么获得那些程序的图标？
请各位高手指教。最好能有具体的源代码。谢了展开阅读全文
-
等级
本版专家分：10496 -
Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public 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
-
等级
本版专家分：10 -
窗体的有个属性icon,点击后面的...选择自己做好的图标就可以了.这个就是任务管理器前面的那个图表..
-
等级
本版专家分：11
-
顶楼上的。。
-
等级
本版专家分：10496
-
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA"
(ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As
Long) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll"
(lpPictDesc As PICTDESC, riid As Any, ByVal fPictureOwnsHandle As Long,
IPic As IPicture) As Long
Private Type PICTDESC
Size As Long
Type As Long
hBmpOrIcon As Long
hPal As Long
End Type
' 取得EXE文件图标
' 参数：EXE文件完整路径名
Public Function GetAppIco(ByVal PathName As String) As StdPicture
Dim lRet As Long
Dim aGuid(0 To 3) As Long
Dim oNewPic As IPicture
Dim lpPictDesc As PICTDESC
lRet = FileLen(PathName) ' 文件是否存在？
lRet = ExtractIcon(App.hInstance, PathName, 0)
If lRet Then
lpPictDesc.Size = Len(lpPictDesc)
lpPictDesc.Type = vbPicTypeIcon
lpPictDesc.hBmpOrIcon = lRet
aGuid(0) = &H7BF80980
aGuid(1) = &H101ABF32
aGuid(2) = &HAA00BB8B
aGuid(3) = &HAB0C3000
' 将图标转换成 Picture 对象
OleCreatePictureIndirect lpPictDesc, aGuid(0), True, oNewPic
Set GetAppIco = oNewPic
End If
End Function
Private Sub Command1_Click()
Set Me.Icon = GetAppIco("C:\WINDOWS\explorer.exe")
End Sub
-
等级
本版专家分：2607 -
顶楼上
- VB6.0修改EXE文件图标.rar
VB6.0修改EXE文件图标，是修改图标不是修改EXE文件，只把EXE内包含的图标给修改掉，自定义个性的EXE程序图标，操作时候，选择你要更改的EXE文件的址，再选择一个你准备好的图标文件，点击“修改图标”，原EXE文件的...
- VB6.0程序图标
按照http://jingyan.baidu.com/article/0a52e3f4221060bf63ed7278.html 用ArtIcons Pro软件，大小选择48X48，颜色选择256色，就可以了
- VB生成EXE文件图标ICO替换(不限于VB)
VB自带的图标都很丑，本工具对生成的EXE文件图标能够快捷的替换，可以换成各种自己希望的ico格式的图标，非常方便
- vb.net获取程序图标
Imports SystemImports System.DrawingImports System.CollectionsImports System.ComponentModelImports System.DataImports System.Runtime.InteropServicesNamespace Etier.IconHelper
- 更改VB程序的图标
更改VB程序的图标 这几天，用VB写了一些小程序。除了功能的实现，关注的就是界面的美化了。 而程序图标的是用户运行程序前，最先呈现在屏幕上的事物。所以，我认为程序有必要使用一个有自己特点的图标。 ...
- VB获取执行程序图标
一个CommonDialog，一个CommandButton，一个PictureBOX Option ExplicitPrivate Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As ...
- VB.NET程序打包，及设置打包程序的（ICO）快捷方式图标
第一步打开自己想打包的程序文件，然后工具栏选择“文件”，“新建项目”如下图1所示。 图1 完成第一步后进入第二步，在其他项目类型里找到“安装和部署”，在Visual Studio Installer里选择“安装项目”，如图2，...
- vb.net实现桌面图标3D翻滚
最近将网页上的3D标签云翻滚程序移植到桌面上来了（用vb.net实现的） 效果如下 按住ctrl键会停止翻转，鼠标指到图标时会显示图标软件信息 程序第一次运行时会自动将桌面所有图标加入到3D翻滚里面来，移动...
- VC,VB程序按钮、图标样式美化
此处的“美化”指的不是通过代码进行美化你的程序。关于想进一步优化自己的程序界面的，不妨去了解下SkinSharp吧。本文提及的是利用第三方资源编辑软件在不更改程序任何框架和代码的前提下实现对界面的简单美化。 1...
- 哪些图标能用于VB程序？
设计VB程序的时候，想更改运行程序图标。谁能告诉我哪些图标能用于VB程序？
- VB精简版文件关联程序(原创源码)
但是VB6精简版安装后没有关联相关VB文件和图标，比如工程文件.vbp、窗体文件.frm等，添加这些文件时需要从VB6程序的对话框中添加，给使用者造成不必要的麻烦（虽然使用Windows系统打开方式打开了VB的文件，但图标也...
- VB 更改EXE 图标
可以把ico文件格式的图标替换到EXE文件。
- VB 中资源文件的多种使用技巧
VB 中资源文件的多种使用技巧 作者： 来源：阅读 1514 人次,2006-5-18 11:50:00 ...
- 个性化文件夹图标（VB）
抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。1. 手动方式：首先要在需要改变的文件夹中创建一个...
- VS2015更改生成程序exe的默认图标
VS2015更改生成程序exe的默认图标
- VB使用RES资源文件技巧
本文介绍了 Visual Basic 中资源文件的多种...④保存各类图标、光标图片等等。 -------------------------------------------------------------------------------- 在 Visual Basic 中资源文件的多种使用
- VB在EXE和DLL文件中提取出全部ICO图标.rar
VB从可执行文件或动态库文件中提取内部所有图标，支持选择快捷方式打开应用程序，比如选择桌面上Word的快捷方式，选择图标源后，Word中的所有图标会被提取到，拖动滚动条可看到这些图标，程序可统计出文件内部所含...
- 【VB.NET】实现动态托盘图标
前言有时候觉得也想给自己做的小软件添加一些小特色，但是总是不知道怎么实现，偶尔看到一些技术类的杂文，但也都是淡淡一描，没有真正的味道，前几天在一本书上看到了一些程序优化的内容，感觉实现类似QQ动态托盘的...
- VB托盘程序详解
'---------------------------------------------' 使用系统托盘程序演示'---------------------------------------------'程序说明：' 这是一个比较完整的使用系统托盘的程序实例，包括'了：添加托盘图标，删除托盘...
- VB代码 VB小程序
VB 代码：VB小程序 1. 百元百张人民币组合问题 2. VB查找素数：速度最快的代码 3. 整人VB小程序：倒计时关机 4. 雪花飘飘 5. 画大小、位置、色彩不断变化的圆 6. VB绘制...
- vb。net 的treeview控件引用 系统imagelist图标，或者调用资源文件的图标
这段时间写个小程序，用来管理散落在电脑各个角落的文档，用treeview做目录树，一开始，用从shell32.dll提出出来的图标导到vb.net 的imagelist控件，再绑定到treeview。意外发现绑定到treeview 后，显示出来的图标在...
- VB高清图标制作方法
我隆重介绍一个软件：...图标组--1--右键0--替换资源--打开新图标文件 选择高清图标文件，保存替换，大功告成！！！！ ResHacker exe图标修改器 3.6 汉化绿色版下载地址 http://www.xdowns.com/soft...
- 更改磁盘驱动器图标的小程序，VB源代码.rar
用来更改我的电脑中驱动器的图标，VB更改电脑驱动器的图标 源代码，让“我的电脑”不再单调。把驱动器图标定义成你喜欢的模样。具体的使用方法：首先选择想更改的ico图标文件。然后单击“确定更改”，再把该驱动器的...
- 用VB实现任务栏右下角的小图标
将VB应用程序缩成系统状态栏图标二法 第一种方法：VB光盘的tools/unsupport/systray目录下有一个例子,将此目录复制到硬盘,编译生成一个OCX控件，在自己的程序中使用此控件,可以实现将程序图标放于右下角系统图标区，...
- 终于解决了 Delphi XE 编译生成的EXE文件图标不变的问题！
一直没在意这个问题，这次委托人一定要更换EXE文件的图标，本以为很容易，...竟然没有自动更换生成的EXE文件图标！从而造成EXE文件无法自动更换图标的BUG！ 我用以上简单方法解决了问题！现贡献大家，供同问题者参考！
- VB.NET 轻松实现任务栏程序
1.启动 .NET 环境, 新建一个 VB.NET的WINDOWS应用程序 2.在窗体上添加一个 NotifyIcon 控件 , 指定一个相应的图标文件 3. 添加一个 CONTEXTMENU , 将 NotifyIcon 的 CONTEXTMENU 指定为这个CONTEXT
- VB托盘程序详解 (API函数)
很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们...
- modTC_Icon：让VB6支持[32位/24位]真彩色图标
VB6本身只支持16色(4位)和256色(8位)的图标，这种图标只是早期的Windows版本所采用的 图标格式标准。现在各种高清真彩色（32位带Alpha通道、24位不带Alpha通道）早已经很流行 并且普遍使用了，但在VB6中却不能直接...
- c++经典代码大全 清晰版
c++经典代码大全 适合C++新手看的经典代码！！！
- matlab等距线扫描多边形程序实现
matlab等距线扫描多边形程序实现,可以对指定的定点画出相应的多变形，在进行扫描