Comment faire pour extraire une icône d'un programme Windows

Retour au début

Exemple pas à pas

1. Démarrez Visual Basic ou dans le menu Fichier, cliquez sur Nouveau projet (ALT + F, N) si Visual Basic est déjà en cours d'exécution. Form1 est créé par défaut.
2. Ajoutez un bouton de commande et un contrôle de zone de l'image à Form1. Ajuster la taille de Picture1 afin qu'une icône 32*32 tienne dans la zone Image.
3. Ajoutez le code suivant à la section Déclarations générales de Form1 :

         Option Explicit
         Private Const MAX_PATH = 260
   
         Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
         "GetSystemDirectoryA" (ByVal lpBuffer As String, _
                                ByVal nSize 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 Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, _
         ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
   
         Dim path$, nIcon As Long
   
         Private Sub Command1_Click()
             Dim hIcon As Long
   
             hIcon = ExtractIcon(App.hInstance, path$, nIcon)
             Set Picture1.Picture = LoadPicture("") ' Clear the picture box
             Picture1.AutoRedraw = True
             Call DrawIcon(Picture1.hdc, 0, 0, hIcon)
             Picture1.AutoRedraw = False
             Picture1.Refresh
             nIcon = nIcon + 1
         End Sub
   
         Private Sub Form_Load()
         ' Store the full path to the file containing the icon(s).
             path$ = Space$(MAX_PATH)
             Call GetSystemDirectory(path$, MAX_PATH)
             path$ = Trim$(path$) ' Trim trailing blanks & Null terminator
             path$ = Left$(path$, Len(path$) - 1) & "\Shell32.dll"
             nIcon = 0
         End Sub
   
   					

4. Appuyez sur F5 pour exécuter le programme. Cliquez sur Command1 pour copier la première icône stockée dans Shell32.dll à Picture1. Chaque clic suivante de Command1 affiche une icône différente.

Retour au début