Discussion :

[Mariquiqui]

Bonjour!

J'essaie de faire en sorte que mon application crée elle-même son raccourci sur le bureau, mais je voudrais que l'icône de ce raccourci soit un icône contenu dans les ressources.

Je crée le raccourci;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Bureau = New IWshRuntimeLibrary.WshShell
Nom = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\NomRaccourci.lnk"
Raccourci = CType(Bureau.CreateShortcut(Nom), IWshRuntimeLibrary.WshShortcut)
Raccourci.TargetPath = My.Application.Info.DirectoryPath & "\NomApplication.exe"

Mon problème est ici;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Raccourci.IconLocation = My.Application.Info.DirectoryPath & "\NomIcone.ico"

Je dois donc donner le chemin de l'icône, alors que mon icône se trouve dans les ressources. J'ai pensé le copier sous son nom, mais n'arrive pas à le faire directement avec l'icone, seulement via un BMP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Bmp As Bitmap = My.Resources.NomIcone.ToBitmap
bmp.Save(My.Application.Info.DirectoryPath & "\NomIcone.ico", ImageFormat.Icon)

Ce qui ne fonctionne pas, car l'image n'apparaît pas, seulement le texte.


D'où ma question; peut-on enregistrer un icône provenant des ressources dans un fichier .ico sur le disque?

Merci!
Merci!

[MABROUKI]

bonjour mariquiqui,
essaye ce code plutot:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim bmp As Bitmap = My.Resources.Resource1.Knob_Remove_Red.ToBitmap
                Dim monFS As New IO.FileStream("c:\test.ico", IO.FileMode.Create)
                Dim hIcon As IntPtr = bmp.GetHicon()
                Dim icn As Icon = Icon.FromHandle(hIcon)
 
                icn.Save(monFS)
                monFS.Flush()
                icn.Dispose()
                monFS.Close()
                monFS = Nothing
                MessageBox.Show("Icon Sauvegarde Reussie...", "Felications...", MessageBoxButtons.OK, MessageBoxIcon.Information)

Les meandres de la gdi,mon ami...
bonne soiree....

[MABROUKI]

Rebonjour,
un petit detail mais tres important que j'ai oublie,si tu as un bitamp quelconque et que tu veux le sauvgarder au format ico voici l'astuce:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim bmp As Bitmap = My.Resources.Resource1.monImageBMP
'cette instruction met la couleur du 1er  pixel 0,0  transparente. 
bmp.MakeTransparent(bmp.GetPixel(0, 0))

bon code....

[Danyel]

J'utilise aussi WshShell pour creer mes icones, mais ce code m'a l'air pas mal à sa lecture
La chose que je me demande (si ca fonctionne) c'est comment faire pour donner certaines informations à l'icone comme les commentaires, le type de fenetre, etc ...

[tomlev]

Pourquoi passes-tu par un bitmap ? Tu peux enregistrer l'icone directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim path As String = My.Application.Info.DirectoryPath & "\NomIcone.ico"
Using s As Stream = File.OpenWrite(path)
    My.Resources.NomIcone.Save(s)
End Using

[Mariquiqui]

Merci à vous pour m'avoir aidée! Je ne suis pas familière avec les traitements d'objets graphiques ...

La méthode de tomlev a très bien fonctionné, et je garde tout en note pour usage ultérieur!

Merci!