Extraire un ressource .ico VB.net
Fermé
VbNewbi
-
Modifié par VbNewbi le 30/10/2012 à 10:52
checktechno1 Messages postés 1 Date d'inscription samedi 20 avril 2013 Statut Membre Dernière intervention 20 avril 2013 - 20 avril 2013 à 00:38
checktechno1 Messages postés 1 Date d'inscription samedi 20 avril 2013 Statut Membre Dernière intervention 20 avril 2013 - 20 avril 2013 à 00:38
A voir également:
- Extraire un ressource .ico VB.net
- Extraire video youtube - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Extraire musique youtube - Guide
- Excel extraire chaine de caractère après un caractère ✓ - Forum Excel
- Extraire son video - Guide
2 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
3 nov. 2012 à 17:29
3 nov. 2012 à 17:29
Bonjour,
Si ton icône est déjà dans le fichier ressources.
Pas d'extension.
A+
Si ton icône est déjà dans le fichier ressources.
Me.Icon = My.Ressoures.LeNomDeIcone
Pas d'extension.
A+
checktechno1
Messages postés
1
Date d'inscription
samedi 20 avril 2013
Statut
Membre
Dernière intervention
20 avril 2013
20 avril 2013 à 00:38
20 avril 2013 à 00:38
J'ai rédigé un article en anglais pour commencer: "How to extract icon from file"
http://checktechno.blogspot.com/2013/04/how-to-extract-icon-from-file.html
l'essentiel du code , le voici:
à mettre dans la classe:
et dans ta fonction tu mets:
http://checktechno.blogspot.com/2013/04/how-to-extract-icon-from-file.html
l'essentiel du code , le voici:
à mettre dans la classe:
<System.Runtime.InteropServices.DllImport("shell32.dll")> Shared Function _
ExtractAssociatedIcon(ByVal hinst As IntPtr, ByVal lpiconpath As String, _
ByRef lpiicon As Integer) As IntPtr
End Function
et dans ta fonction tu mets:
For index1 = 0 To 300 Step 1
hIcon = ExtractAssociatedIcon(Me.Handle, sPath, index1)
oIcon = Icon.FromHandle(hIcon)
ImageList1.Images.Add(oIcon)
ImageList2.Images.Add(oIcon)
ListView1.Items.Add(index1.ToString, index1)
Next index1