Recuperer icone d'un fichier

Bonjour,

je developpe un petit programme sous Visual Basic 2008 Express Edition.
Je cherche à récupérer l'icone d'un fichier sélectionné.
J'ai trouvé la méthode suivant sur la FAQ:
http://vb.developpez.com/faq/index.p...ticonfromfille
Le souci que j'ai, c'est que lorsque j'insère le code dans un module il y a tout un tas d'erreurs.

Quelqu'un a-t-il une solution à me proposer??

Merci

Citation:

---

Envoyé par Astik21

J'ai trouvé la méthode suivant sur la FAQ:
http://vb.developpez.com/faq/index.p...ticonfromfille
Le souci que j'ai, c'est que lorsque j'insère le code dans un module il y a tout un tas d'erreurs.

---

C'est la FAQ VB, pas VB.NET...

En .NET, tu peux utiliser la méthode Icon.ExtractAssociatedIcon

Ca fonctionne nickel.

Merci

Bonjour, je suis un développeur débutant en Visual Basic. J'ai réussi à récupérer l'icone de mon choix avec la méthode Icon.Extract.AssociatedIcon mais j'aimerais la convertir en Image Bitmap, de l'enregistrer dans un fichier et de l'ouvrir sur un Button en arrière plan.
( Je veux faire un launcher, il y a plein de boutons, et quand on clique sur le bouton pour la première fois, je veux que celui-ci ouvre un openfiledialog afin de retenir le chemin d'accés dans My.Settings. Pour l'instant j'y suis réussi mais je voudrais que l'application sauvegarde l'icone du fichier choisi avec l'OpenFileDialog soit mis en BackgroundImage sur le Button1 ).

Merci aux personnes qui arriveraient à m'aider avec mes médiocres explications :P

La class Icon a une méthode ToBitmap() qui fait exactement ça...
Tu peux ensuite utiliser la méthode Save du bitmap pour enregistrer dans un fichier, mais ce n'est pas nécessaire a priori, tu peux directement mettre le bitmap en background du bouton.

Merci beacoup tomlev pour cette réponse. Effectivement, ta méthode de conversion ToBitmap marche bien. Je me suis débrouiller pour l'enregistrer avec .save car je doit l'enregistrer pour les prochaines réouverture de l'application. Seulement la méthode de conversion ToBitmap() réduit la résolution de l'icone choisi par du 32x32 ce qui fais très sale pour un affichage sur une picturebox. Si tu pourrais me trouver un arrangement, pour pas de baisse de qualité. Je te laisse regarder un coup d'oeil sur mon projet que je t'es mis dans les pièces jointes. Si tu n'arrive pas à le télécharger je te met une parti du code que j'ai utiliser grâce à toi. Merci beacoup encore :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

If My.Settings.button2_link = ("") Then Try OpenFileDialog1.ShowDialog() My.Settings.button2_link = OpenFileDialog1.FileName My.Settings.Save() Dim ico As Icon = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName) Dim bmp As Bitmap = ico.ToBitmap bmp.Save("C:\Starter\Button\Button2\icone.bmp") PictureBox2.ImageLocation = ("C:\Starter\Button\Button2\icone.bmp") Catch ex As Exception MsgBox("Impossible de Charger cette application !", vbCritical) End Try Else Try Process.Start(My.Settings.button2_link) Catch ex As Exception MsgBox("L'application à été suprimer, modifier, déplacer ou renommer. Vérifier son chemin d'accès.", vbCritical, "Cible d'accès de l'application manquante !") End Try End If

---

Citation:

---

Envoyé par fr4ncois33

Seulement la méthode de conversion ToBitmap() réduit la résolution de l'icone choisi par du 32x32

---

Non, c'est ExtractAssociatedIcon qui te sort une icône en 32x32. Si tu veux l'icône en plus haute résolution, il faut utiliser une autre technique, comme celle qui est décrite ici :
http://lluisfranco.com/2014/04/16/ex...network-paths/

:o Le code est beacoup trop compliqué pour moi :/ Mais merci quand même j'ai déjà réussi à récupérer l'icone d'un fichier et la convertir en Bitmap.
Re-Merci ;)