level 5
有一个API可以获取指定文件的图标
Imports System.Runtime.InteropServices
'这个函数可判断一个可执行程序或DLL中是否存在图标,或是否有图标与系统注册表中指定的文件存在关联。随后,它允许我们提取出那些图标
public Declare Function ExtractAssociatedIcon Lib "shell32.dll" _
Alias "ExtractAssociateIconA" (ByVal hInst As IntPtr, _
ByVal lpIconPath As String, _
ByRef lpiIcon As Integer) As IntPtr
调用方法
Dim ih As IntPtr = ExtractAssociatedIcon(Me.Handle, "文件的路径", 0) '0表示图标在dll\exe\ico文件中的索引,一般选0就行了
Dim ico As Icon = Icon.FromHandle(ih)
接下来就可以直接用ico对象了
2011年05月13日 16点05分