Description :
Cette fonction vous permet de dessiner une icône dont vous avez récupéré un handle. Concrètement cette fonction est utilisée après un ExtractIcon ou un LoadIcon par exemple.
hdc est le handle de l'objet dans lequel sera dessinée l'icône.
x et y sont les coordonées de départ de l'icône à dessiner.
hIcon est le handle de l'icône.
La fonction renvoie "Vrai" si tout c'est bien passé, sinon "Faux".

Exemple d'utilisation :

' Exemple de Philippe Plançon

' Extraire les icônes d'un exécutable
Dim FichierExtraction As String
Dim NbIcon As Long
Dim Handle As Long ' Adresse pointée par ExtractIcon
Dim X As Long ' Retour

' Les API
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 Extraction()
' ---Demande du fichier---
FichierExtraction = InputBox$("Fichier contenant l'icône à extraire (.ICO,.EXE,.DLL):", _
                    "Extraction d'icône", App.Path & "\" & App.EXEName & ".exe")
If FichierExtraction = vbNullString Then Exit Sub
' ---Initialise---
Picture1.Cls
' ---Retourne le nombre d'icône contenu par le fichier---
' Le -1 est important : il déclenche l'option de "comptage" des icônes
NbIcon = ExtractIcon(Handle, FichierExtraction, -1)
Label1.Caption = "Nombre d'icône = " & Str$(NbIcon)
' ---Extraction et dessine l'icône---
' Le premier icône est indexé en 0
NbIcon = ExtractIcon(Handle, FichierExtraction, NbIcon - 1)
X = DrawIcon(Picture1.hdc, 0, 0, NbIcon)
End Sub

Retour à la liste des API