Icône associée

Soyez le premier à donner votre avis sur cette source.

Vue 4 427 fois - Téléchargée 235 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
242
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005

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.
Messages postés
24
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
3 février 2003

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.
Messages postés
19
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
23 janvier 2008

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.

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.