Extraire une icône

Commenter

Contenu du snippet 

' Déclaration de la fonction d'extraction
Declare Function ExtractToHicon Lib "shell32.dll" Alias "ExtractIconA"(ByVal hInst As Integer, ByVal FileName As String, ByVal IconIndex As Integer) As IntPtr
Public Function ExtractToIcon(ByVal FileName As String, ByVal IconIndex As Integer) As Icon
        ' Cette fonction extrait l'îcone en IntPtr et la convertit en Icon
        Dim IconToInteger As IntPtr = ExtractToHicon(0, FileName, IconIndex)
        Dim IconExtrait As Icon = Icon.FromHandle(IconToInteger)
        
        IconExtrait.Dispose()
        
        Return IconExtrait
End Function

Compatibilité : VB 2005, VB.NET 1.x

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (anthonygego)