cs_patoch
Messages postés62Date d'inscriptionjeudi 12 avril 2001StatutMembreDernière intervention25 septembre 2007
-
24 nov. 2002 à 20:02
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013
-
24 nov. 2002 à 20:59
Salut
Voila je fais un programme pour extraire des icons
je voudrais savoir si il y a un moyen de mettre moins de code,(Code que je met ci dessous).
Et je voudrais pouvoir les extraire pour les sauver
en bmp ou en gif.
Merci pour la reponse
Bye
@+
' 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 Command1_Click()
' 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
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
Picture6.Cls
Picture7.Cls
Picture8.Cls
Picture9.Cls
Picture10.Cls
Picture11.Cls
Picture12.Cls
Picture13.Cls
Picture14.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 a extraire " & 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)
' 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 a extraire " & Str$(NbIcon)
' Extraction et dessine l'icône
' Le premier icône est indexé en 0
NbIcon = ExtractIcon(Handle, FichierExtraction, NbIcon - 2)
X = DrawIcon(Picture2.hdc, 0, 0, NbIcon)