OVH Cloud OVH Cloud

icone du fichier

1 réponse
Avatar
mg
Salut,
Comment on peur recuperer l'icone associe a un fichier et l'afficher dans
une liste listbox : liste des fichier d'un dossier
merci d'avance.

1 réponse

Avatar
Picalausa François
Hello,

Le contrôle listview est adapté pour l'utilisation d'icônes dans une liste.
Pour récupérer l'icône, tu peux employer l'API SHGetFileInfo:

Private Declare Function SHGetFileInfo _
Lib "shell32.dll" _
Alias "SHGetFileInfoA" _
( _
ByVal pszPath As String, _
ByVal dwFileAttributes As Long, _
psfi As SHFILEINFO, _
ByVal cbFileInfo As Long, _
ByVal uFlags As Long _
) _
As Long

Private Enum SHGFI_FLAGS
SHGFI_ICON = &H100
SHGFI_DISPLAYNAME = &H200
SHGFI_TYPENAME = &H400
SHGFI_ATTRIBUTES = &H800
SHGFI_ICONLOCATION = &H1000
SHGFI_EXETYPE = &H2000
SHGFI_SYSICONINDEX = &H4000
SHGFI_LINKOVERLAY = &H8000
SHGFI_SELECTED = &H10000
SHGFI_ATTR_SPECIFIED = &H20000
SHGFI_LARGEICON = &H0
SHGFI_SMALLICON = &H1
SHGFI_OPENICON = &H2
SHGFI_SHELLICONSIZE = &H4
SHGFI_PIDL = &H8
SHGFI_USEFILEATTRIBUTES = &H10
End Enum

Pour contertir le handle vers icône récupéré en objet Picture, tu pourra
utiliser l'API OleCreatePictureIndirect, comme inidqué ici:
http://www.devx.com/vb2themax/Tip/19041

--
Picalausa François

"mg" a écrit dans le message de news:

Salut,
Comment on peur recuperer l'icone associe a un fichier et l'afficher dans
une liste listbox : liste des fichier d'un dossier
merci d'avance.