1个简单问题..

goldenLoveYou 2005-08-10 12:25:33
用Imagelist如何获取如文件、打印等图标,过去用过,好像在操作系统目录下,今天怎么也找不到那个图标了.......
...全文
142 17 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
ilove8 2005-08-13
  • 打赏
  • 举报
回复
可以找到
goldenLoveYou 2005-08-12
  • 打赏
  • 举报
回复
英雄,能发给我吗?QQ:17821896
seu31199113 2005-08-11
  • 打赏
  • 举报
回复
QQ:105537693

发给你不久行了
byeshuang 2005-08-11
  • 打赏
  • 举报
回复
上网找,多了
sdrcxzy 2005-08-11
  • 打赏
  • 举报
回复
*.ico
goldenLoveYou 2005-08-11
  • 打赏
  • 举报
回复
UP~
zou19820704 2005-08-11
  • 打赏
  • 举报
回复
我在c盘中查找就可以找到。
wbczyh 2005-08-10
  • 打赏
  • 举报
回复
其实在上面那个模块中还可以使用API:
Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
那样会简单些!
wbczyh 2005-08-10
  • 打赏
  • 举报
回复
我写这个贴子之时还没有人回复,写完以后竟然已经有了几个回复,人气挺旺的呀!
wbczyh 2005-08-10
  • 打赏
  • 举报
回复
可以从\windows\explorer.exe中提取图标。

使用以下的模块:
Attribute VB_Name = "ExtractIcon"
Option Explicit

Private Const MAX_PATH = 260
Private Const SHGFI_ICON = &H100
Private Const SHGFI_SYSICONINDEX = &H4000 ' get system icon index
Private Const SHGFI_LARGEICON = &H0 ' get large icon
Private Const SHGFI_SMALLICON = &H1 ' get small icon
Private Const ILD_TRANSPARENT = &H1 ' 透明

Private Type SHFILEINFO
hIcon As Long ' out: icon
iIcon As Long ' out: icon index
dwAttributes As Long ' out: SFGAO_ flags
szDisplayName As String * MAX_PATH ' out: display name (or path)
szTypeName As String * 80 ' out: type name
End Type


Global lIcon&
Global sSourcePgm$
Global sDestFile$

Public Declare Function ExtractIconAPI Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl&, ByVal i&, ByVal hDCDest&, ByVal x&, ByVal y&, ByVal flags&) As Long
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

'
Public Function GetIcon(ByVal sPath$, oPictureBox As PictureBox) As Long
Dim xPixels&, yPixels&
xPixels = Screen.TwipsPerPixelX
yPixels = Screen.TwipsPerPixelY

Dim himl&, rtn&
Dim shinfo As SHFILEINFO
Dim picLeft As Long
Dim picTop As Long

himl = SHGetFileInfo(sPath, 0&, shinfo, Len(shinfo), SHGFI_SYSICONINDEX Or SHGFI_LARGEICON)

If himl <= 0 Then GetIconNogray = -1: Exit Function '没有图标就返回-1
picLeft = (oPictureBox.ScaleWidth / xPixels) / 2 - 16
picTop = (oPictureBox.ScaleHeight / yPixels) / 2 - 16
oPictureBox.Picture = LoadPicture()
oPictureBox.AutoRedraw = True
rtn = ImageList_Draw(himl, shinfo.iIcon, oPictureBox.hdc, picLeft, picTop, ILD_TRANSPARENT)

oPictureBox.Refresh

GetIconNogray = himl '返回图标句柄

End Function

你只需要按以下方法调用就以实现:
dim hIcon as long'存放返回的图标句柄
hIcon=GetIcon("c:\windows\explorer.exe",aPictureBox)
'第一个参数与你系统位置有关;第二个参数用于显示图标;返回值是一个图标句柄,用于其它地方引用。
goldenLoveYou 2005-08-10
  • 打赏
  • 举报
回复
fan_yu_feng()
不懂....能给个软件的名称吗?
goldenLoveYou 2005-08-10
  • 打赏
  • 举报
回复
找了,.bmp和.ico都没找到,找了个cotoc.bmp有点象,但不是,也不能操作。是不是和操作系统有关?过去是在win2kpro下,现在是win2kserver
fan_yu_feng 2005-08-10
  • 打赏
  • 举报
回复
网上找一个取EXE文件中的图标的程序,走一下就可以了
3q2008Com 2005-08-10
  • 打赏
  • 举报
回复
你搜索ICO图标
goldenLoveYou 2005-08-10
  • 打赏
  • 举报
回复
conrad_wan
...........这不是找不到吗....
conrad_wan 2005-08-10
  • 打赏
  • 举报
回复
系目录下去搜搜不就有了。。
goldenLoveYou 2005-08-10
  • 打赏
  • 举报
回复
wbczyh()
.......好像不对,没那么复杂啊,我只是要几个系统提供的打印、文件、打开的那些图标啊
线程的状态以及各状态之间的转换详解.mp4 线程的初始化,中断以及其源码讲解.mp4 多种创建线程的方式案例演示(一)带返回值的方式.mp4 多种创建线程的方式案例演示(二)使用线程池.mp4 Spring对并发的支持:Spring的异步任务.mp4 使用jdk8提供的lambda进行并行计算.mp4 了解多线程所带来的安全风险.mp4 从线程的优先级看饥饿问题.mp4 从Java字节码的角度看线程安全性问题.mp4 synchronized保证线程安全的原理(理论层面).mp4 synchronized保证线程安全的原理(jvm层面).mp4 单例问题与线程安全性深入解析.mp4 理解自旋锁,死锁与重入锁.mp4 深入理解volatile原理与使用.mp4 JDK5提供的原子类的操作以及实现原理.mp4 Lock接口认识与使用.mp4 手动实现一个可重入锁.mp4 AbstractQueuedSynchronizer(AQS)详解.mp4 使用AQS重写自己的锁.mp4 重入锁原理与演示.mp4 读写锁认识与原理.mp4 细读ReentrantReadWriteLock源码.mp4 ReentrantReadWriteLock锁降级详解.mp4 线程安全性问题简单总结.mp4 线程之间的通信之wait notify.mp4 通过生产者消费者模型理解等待唤醒机制.mp4 Condition的使用及原理解析.mp4 使用Condition重写waitnotify案例并实现一个有界队列.mp4 深入解析Condition源码.mp4 实战:简易数据连接池.mp4 线程之间通信之join应用与实现原理剖析.mp4 ThreadLocal 使用及实现原理.mp4 并发工具类CountDownLatch详解.mp4 并发工具类CyclicBarrier 详解.mp4 并发工具类Semaphore详解.mp4 并发工具类Exchanger详解.mp4 CountDownLatch,CyclicBarrier,Semaphore源码解析.mp4 提前完成任务之FutureTask使用.mp4 Future设计模式实现(实现类似于JDK提供的Future).mp4 Future源码解读.mp4 ForkJoin框架详解.mp4 同步容器与并发容器.mp4 并发容器CopyOnWriteArrayList原理与使用.mp4 并发容器ConcurrentLinkedQueue原理与使用.mp4 Java中的阻塞队列原理与使用.mp4 实战:简单实现消息队列.mp4 并发容器ConcurrentHashMap原理与使用.mp4 线程池的原理与使用.mp4 Executor框架详解.mp4 实战:简易web服务器(一).mp4 实战:简易web服务器(二).mp4 JDK8的新增原子操作类LongAddr原理与使用.mp4 JDK8新增锁StampedLock详解.mp4 重排序问题.mp4 happens-before简单概述.mp4 锁的内存语义.mp4 volatile内存语义.mp4 final域的内存语义.mp4 实战:问题定位.mp4

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧