1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Associé une image (icône) à une extension précise

[Résolu]
Signaler
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012
 -
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
 -
Bonjour,

Je suis actuellement entrain de programmer une petite application.
Lors de son exécution, elle créer des fichiers cryptés, leurs extension n'est pas reconnues par Windows.

Une fois que le fichier ce créer, un icône tous blanc apparaît.

Je voulais donc savoir si il était possible par le biais de la base de registre (ou autre) d'attribuer un icône bien précis en fonction d'une extension qui n'est pas reconnue par windows (qui n'existe pas).

PS : J'ai ajouté ce post dans cette catégorie car je pense que ma question n'a rien à voir avec le vb.net.

Merci :)

4 réponses

Réponse 1 / 4
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
Bonjour, essaye avec ca : 

My.Computer.Registry.ClassesRoot.CreateSubKey(".EXTENSION")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "PerceivedType", "TYPEDEFICHIER")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "", "TYPEDEFICHIER")
        My.Computer.Registry.ClassesRoot.CreateSubKey("TYPEDEFICHIER")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\TYPEDEFICHIER\Defaulticon", _
       "", "CHEMINDETONICONEDEVANTETRESURLEDISQUEDUR")
    End Sub


Parcontre ton application doit être lancer en admin.
Gabilach...
Réponse 2 / 4
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
Pour préciser, TYPEDEFICHIER doit être remplacer dans : 

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "PerceivedType", "TYPEDEFICHIER")


Par le type de fichier comme texte vidéo etc...

Et dans : 

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "", "TYPEDEFICHIER")

My.Computer.Registry.ClassesRoot.CreateSubKey("TYPEDEFICHIER")

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\TYPEDEFICHIER\Defaulticon", _
       "", "CHEMINDETONICONEDEVANTETRESURLEDISQUEDUR")


Il doit être remplacer par la vrai de l'extension mais tout attaché, par exemple rtf = RichTextFiles, donc TYPEDEFICHIER sera RichTextFiles.

Gabilach...
Réponse 3 / 4
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012
 1
Bonsoir,

Sa fonctionne très bien !

Merci beaucoup

PS : J'aime bien ton avatar d'anonymous
Réponse 4 / 4
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
Comptant de t'avoir aidé !!! Merci pour mon avatar

Bonne programmation !

Gabilach...
Répondre Posez votre question