Copier une icône des Ressources vers l'ordinateurRésolu

Question

Bonjour, 
Dans le dernier poste que j'ai posté " Vb.net Créer un Raccourci de Fichier ou Dossier ", il y avait beaucoups de propositions, j'ai décidé de copier l'icône qui se trouve dans les Ressources vers l'ordinateur, après l'utiliser comme icône pour le raccourci 
Pour là copier j'ai utilisé tout d'abord le code suivant (je l'utilise souvent pour copier des fichiers des Ressources vers l'ordinateur) :
System.IO.File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), My.Resources.icone1)
Mais cela ne fonction pas 
J'ai fais des recherche est j'ai fini par trouver le code suivant :
My.Resources.icone1.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\icone1.ico")
L'icône est bien copier dans l'ordinateur, mais elle est inutilisable (je ne peux pas l'utiliser comme icône pour le raccourci)
Aidez moi s'il vous plaît à régler ce problème
Merci d'avance pour votre aide

cs_Le Pivert · Answer

Bonjour,

Comme ceci:

My.Resources.icone1.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\icone1.ico", System.Drawing.Imaging.ImageFormat.Icon) 

Sinon une autre manière:

 Dim path As String = Application.StartupPath
        path = Replace(path, "bin\Debug", "Resources")
        path = path & "\icone1.ico"
        FileCopy(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\icone1.ico")
 
@+ Le Pivert

kikou93 · Answer

Salut cs_Le Pivert
merci de m'avoir répondu aussi rapidement
1er mot : pour la deuxieme méthode :
Dim path As String = Application.StartupPath        path = Replace(path, "bin\Debug", "Resources")        path = path & "\icone1.ico"        FileCopy(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\icone1.ico")
elle ne sera pas très utile car après avoir généré le exe le chemin de bin,Debug ou Resources ne sera plus disponible (seul l'application exe sera déplacé et utilisé dans d'autre ordinateur)
2eme mot : concernant la première méthode :
My.Resources.icone1.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\icone1.ico", System.Drawing.Imaging.ImageFormat.Icon)
il y a deux méthode pour ajouter une icône au Resources :
1. ajouter la ressource en tant qu'image (dans la liste des images)
c'est bien possible de copier l'icône, mais toujours impossible de l'utiliser et il y a une différence entre l'icône originale et l'icône copier :

2. Ajouter l'icône en tant qu'icône (dans la liste des icônes)
le code ne fonction pas, il y a une erreur qui s'affiche pour le chemin ou l'icône sera copier ("Impssible de convertir une valeur de type 'String' en 'System.IO.Stream'.")

cs_Le Pivert · Answer

Si je comprends bien tu veux simplement extraire une icone d'un executable?

Voir ceci:

http://codes-sources.commentcamarche.net/source/46960-extraire-tous-les-icones-d-un-executable-ou-d-une-dll

cs_Le Pivert · Answer

J'ai trouvé une solution pour mettre l'icône de l'executable sur le Bureau:

une ImageList et une Picturebox

 Dim oBitmap As Bitmap
        Dim HIcon As IntPtr
        Dim newIcon As Icon
        Dim oFileStream As IO.FileStream
        Dim ico As Icon = Icon.ExtractAssociatedIcon(Application.ExecutablePath) 'chemin de l'executable
        ImageList1.Images.Add(ico)
        PictureBox1.Image = ImageList1.Images(0)
        oBitmap = New Bitmap(PictureBox1.Image)
        'Set transparence color.
        oBitmap.MakeTransparent(Color.Transparent)
        oBitmap.SetResolution(96, 96)
        ' Get an Hicon for myBitmap.
        HIcon = oBitmap.GetHicon()
        ' Create a new icon from the handle.
        newIcon = System.Drawing.Icon.FromHandle(HIcon)
        ' Set the form Icon attribute to the new icon.
        Me.Icon = newIcon
        oFileStream = New IO.FileStream(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Monicone.ico", IO.FileMode.CreateNew)
        newIcon.Save(oFileStream)
        oFileStream.Close()
        MessageBox.Show("Opération réussie.", "Extraire icône", MessageBoxButtons.OK, MessageBoxIcon.Information)

Cela fait quand même moins de manipulation !

cs_Le Pivert · Answer

Bien sur, tu aurais trouvé la solution ici:

http://codes-sources.commentcamarche.net/source/101737-convertir-image-bmp-en-ico 

   Dim HIcon As IntPtr
        Dim newIcon As Icon
        Dim oFileStream As IO.FileStream
        Dim ico As Icon = Icon.ExtractAssociatedIcon(Application.ExecutablePath) 'chemin de l'executable
        ImageList1.Images.Add(ico)
        PictureBox1.Image = ImageList1.Images(0)
        Dim imageSource As New Bitmap(PictureBox1.Image)
        'crée un Bitmap avec la nouvelle taille
        Dim bp As New Bitmap(32, 32)
        Dim gr As Graphics = Graphics.FromImage(bp)
        'copie l'image source dans la nouvelle image
        gr.DrawImage(imageSource, 0, 0, bp.Width + 1, bp.Height + 1)
        bp.MakeTransparent(Color.Transparent)
        bp.SetResolution(96, 96)
        ' Get an Hicon for myBitmap.
        HIcon = bp.GetHicon()
        ' Create a new icon from the handle.
        newIcon = System.Drawing.Icon.FromHandle(HIcon)
        ' Set the form Icon attribute to the new icon.
        Me.Icon = newIcon
        oFileStream = New IO.FileStream(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Monicone.ico", IO.FileMode.CreateNew)
        newIcon.Save(oFileStream)
        oFileStream.Close()
        MessageBox.Show("Opération réussie.", "Extraire icône", MessageBoxButtons.OK, MessageBoxIcon.Information)

Et voilà

Copier une icône des Ressources vers l'ordinateur

5 réponses

Votre réponse

Discussions similaires