VB里怎么把某个程序的图标，导入的IMAGE里。

2025-02-27 03:18:13

推荐回答（1个）

回答（1）：

你的意思是即时获得某个EXE文件的图标是吧。我的程序里是这样实现的，效果很好哦。支持XP下的图标透明效果。不能使用IMAGE，必须使用PICTURE。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 '得到文件信息
Private Declare Function SHGetFileInfo Lib "shell32" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags 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 Public Function GetFileIco(FileName As String, icon_size As Long) As Long '得到透明图标
On Error Resume Next
Const SHGFI_ICON = &H100
Dim hIcon As Long
Dim sh_info As SHFILEINFO SHGetFileInfo FileName, 0, sh_info, Len(sh_info), SHGFI_ICON + icon_size
hIcon = sh_info.hIcon
GetFileIco = hIcon
End Function

最新问答

在家怎么做鱼丸

在不在啊？我新买的三星i9000现在老是自动关机，拔掉电池再装上才能开机。。。QQ310722532，求解啊。

刘翔什么时候退役？

西铁城大神进，求鉴定，别人要从日本给我捎这块表来，这是什么型号啊，大概价格多少啊

symantec AntiVirus的企业版，怎么不能更新了呀！