~ 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 ~
~ Partenaires ~
|
Procédure : ExtractionIcone 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 |