【VB】VB读取EXE程序的ICO图标显示并保存

VB读取EXE程序的ICO图标显示并保存为文件，VB读取EXE程序的ICO图标Picture显示，VB读取EXE程序的ICO图标显示，VB读取EXE程序ICO图标显示，VB读取 EXE ICO 图标显示，VB读取 EXE ICO 图标显示，VB读取 EXE ICO 图标，VB读取 EXE ICO，VB提取EXE程序的ICO图标显示并保存为文件，VB提取EXE程序的ICO图标Picture显示，VB提取EXE程序的ICO图标显示，VB提取EXE程序ICO图标显示，VB提取 EXE ICO 图标显示，VB提取 EXE ICO 图标显示，VB提取 EXE ICO 图标，VB提取 EXE ICO，VB提取 EXE 图标，VB读取EXE程序的ICO图标保存为文件，VB读取EXE程序图标保存为文件，VB读取EXE程序ICO保存为文件，VB读取EXE程序图标保存，VB读取EXE程序ICO保存，VB读取EXE图标保存，VB读取EXE ICO保存，VB提取EXE程序的ICO图标保存为文件，VB提取EXE程序图标保存为文件，VB提取EXE程序ICO保存为文件，VB提取EXE程序图标保存，VB提取EXE程序ICO保存，VB提取EXE图标保存，VB提取EXE ICO保存，VB ExtractIcon，VB DrawIcon，ExtractIcon(App.hInstance， "c:\a.exe"， 0)，VB SavePicture ico。

VB读取EXE程序的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:\a.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

VB PictureBox保存为图片：SavePicture Picture1.Image, "c:\a.bmp"

文章目录