提取应用程序的图标

2001-12-14 01:12:34 192 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WSL2下用QEMU模拟ARM开发板：从编译uboot到调试全流程（附常见错误解决）本文详细介绍了在WSL2环境下使用QEMU模拟ARM开发板的完整流程，包括uboot编译、内核调试等关键步骤。通过QEMU模拟vexpress-a9开发板，开发者可以高效搭建嵌入式开发环境，解决常见错误并提升开发效率。阅读详情

我看到有些应用程序的图标很好看，
想把它们作为自己的应用程序的图标，
不知道该怎么做，才能把他提取出来，
还请各位大虾指点一下。

...全文

BU61580芯片实战：手把手教你配置1553B通信的BC端寄存器（含代码解析）本文详细解析了BU61580芯片在1553B通信中的BC端寄存器配置方法，包括关键寄存器功能映射、初始化代码解析及回环测试实现。通过实战案例和代码示例，帮助开发者快速掌握1553B通信的核心技术，提升系统稳定性和通信质量。阅读详情

CNer

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

DeityFox 2001-12-14

打赏
举报

如何在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

lightning_68 2001-12-14

打赏
举报

正好我做了一个
此处下载原代码http://507www.go.163.com/file/tqtb.zip
绝对好看易懂

enmity 2001-12-14

打赏
举报

到

http://caotang.myetang.com/temp/extracticon.dll

下载一个给你满意答复的例子

dbcontrols 2001-12-14

打赏
举报

我这里有个源代码,来信要
http://www.wzjcw.net/vbgood/taishan/index.html

sxmzmxh 2001-12-14

打赏
举报

or

HICON ExtractIcon(
HINSTANCE hInst, // instance handle
LPCTSTR lpszExeFileName, // filename of file with icon
UINT nIconIndex // index of icon to extract
);

sxmzmxh 2001-12-14

打赏
举报

UINT ExtractIconEx(
LPCTSTR lpszFile,
int nIconIndex,
HICON FAR *phiconLarge,
HICON FAR *phiconSmall,
UINT nIcons
);
see msdn

提取应用程序的图标

相关推荐