'以下是一個簡單的提取圖標的samplePrivate 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 LongPrivate Sub Form_Load() Dim i As Long Const ExeFile = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" i = ExtractIcon(App.hInstance, ExeFile, 0) Form1.AutoRedraw = True i = DrawIcon(Form1.hdc, 10, 10, i) '在窗口繪制出所提取的圖標 End Sub
然后savepicture就可以了,
比如放在一个picturebox上,名字为pic1,
SavePicture pic1.picture,"c:\test.ico".
别告诉我你不会提取图标,网上的例子多得很。
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As LongPrivate Sub Form_Load()
Dim i As Long
Const ExeFile = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" i = ExtractIcon(App.hInstance, ExeFile, 0)
Form1.AutoRedraw = True
i = DrawIcon(Form1.hdc, 10, 10, i) '在窗口繪制出所提取的圖標
End Sub