Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : ExtractionIcone
Extraire les icônes d'un fichier.
(Consulté 19151 fois.)

' Déclaration des deux API qui vont servir.
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

Public Sub
ExtractionIcone(stFichier As String, lgNum As Long, picTmp As Object)
' lgNum est le numéro de l'icône a extraire du fichier (car il peut y en avoir
' plusieurs), il faut faire varier lgNum pour extraire tous les icônes existants.
' picTmp est de préférence une référence vers une PictureBox
Dim lgIcon As Long
' Extraction de l'icône
lgIcon = ExtractIcon(App.hInstance, stFichier, lgNum)
' Efface la PictureBox
Set picTmp.Picture = LoadPicture("")
picTmp.AutoRedraw =
True
' Affiche l'icône
Call DrawIcon(picTmp.hdc, 0, 0, lgIcon)
picTmp.Refresh
End Sub
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr