Icône associée

0/5 (3 avis)

Vue 4 601 fois - Téléchargée 251 fois

Télécharger le projet
Commenter

Description

Petit source bien simple pour trouver l'incon associer a un fichier

soit en sélectionnant le fichier,
soit en écrivant le par example abc.jpg sa nous donne l'icone du système pour se type de fichier

voici le code, pour le voir a l'oeuvre essayer le en le téléchargant.

Source / Exemple : 


Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" ( _
          ByVal hInst As Long, _
          ByVal lpIconPath As String, _
          lpiIcon As Long) _
As Long

Private Declare Function DrawIcon Lib "user32" ( _
          ByVal hdc As Long, _
          ByVal x As Long, _
          ByVal y As Long, _
          ByVal hIcon As Long) _
As Long

Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
Open App.Path & Text1 For Random As #1
Close #1
Dim mIcon As Long
mIcon = ExtractAssociatedIcon(App.hInstance, App.Path & Text1, 1)
picIcon.Cls
DrawIcon picIcon.hdc, 0, 0, mIcon
DestroyIcon mIcon
Kill App.Path & Text1
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir1_Click()
Dim mIcon As Long
mIcon = ExtractAssociatedIcon(App.hInstance, Dir1.Path, 1)
picIcon.Cls
DrawIcon picIcon.hdc, 0, 0, mIcon
DestroyIcon mIcon
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim mIcon As Long
mIcon = ExtractAssociatedIcon(App.hInstance, File1.Path & "\" & File1.FileName, Text2)
picIcon.Cls
DrawIcon picIcon.hdc, 0, 0, mIcon
DestroyIcon mIcon
End Sub

Conclusion :


Amuser vous bien
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005
16 juil. 2005 à 03:44
Si l'instruction de la ligne 25 ne tente pas d'effacer définitivement un fichier, je suis la reine d'Angleterre. Attention à l'instruction Kill.

Aussi le reste du code est ultra-redondant: on retrouve trois fois les 5 même lignes. Une fontion synthétisant des actions répétées pourrait par conséquent retirer le tiers du code de ton exemple.
Pas de note.
coolcrash Messages postés 24 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 3 février 2003
25 mai 2002 à 03:56
Ben non c'é pour une fonctionnalité bien précise

tu tape aaa.vbs ben sa va créer sa fichier, ensuite trouver son icone et finalement l'effacer.

télécharge le programme et tu vera ce que je veux dire.

cette fonctionnalité est très pratique, car sa permet de trouver l'icon d'un fichier sans obligatoirement avoir ce type de fichier sous la main.

je suis bien désoler si tu as cru que mon programme a de mauvaise intention.
sa n'afface pas ton fichier.
MagicManu Messages postés 19 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 23 janvier 2008
23 mai 2002 à 21:54
Kill App.Path & Text1

Si j'ai bien compris, ça efface le fichier que tu choisis !!!
Heureusement que je jète un coup d'oeil au code avant de le lancer !

Pas bien, 1/10 à cause de ça.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (coolcrash)