VB如何生成ICO

来源：百度知道 编辑：UC知道 时间：2024/07/04 23:06:10
我用extracticon函数提取了EXE的 ICO图标
然后要怎么把它生成ICO文件?
---
思路
你会用pic...图片控件读取图片吗？
会的话 保存文件会吧！
把提取的图标先放入 pic...控件 在写代码把pic...控件的图标保存为本地就行了
--
提取出来的图标VB中无法使用,不符合ICO格式标准

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 DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Command1_Click()
Dim lngIcon
lngIcon = ExtractIcon(App.hInstance, "c:\windows\NOTEPAD.EXE", 0)
If lngIcon = 0 Then
MsgBox "获取图标错误"
Exit Sub
Else
'Picture1.Cls
Picture1.Picture = LoadPicture()
Picture1.AutoRedraw = True
DrawIcon Picture1.hdc, 0, 0, lngIcon
Picture1.Refresh
SavePicture Picture1.Image, "d:\test.ico"
End If
End Sub

要自己解析ICO的文件格式，这个有点点复杂。

有ICO图标转换器 就很简单了了

思路
你会用pic...图片控件读取图片吗？
会的话 保存文件会吧！
把提取的图标先放入 p