Gestion des extensions et des icones associés

Soyez le premier à donner votre avis sur cette source.

Vue 5 194 fois - Téléchargée 750 fois

Description

permet de gerer les icones qui correspondent a l association de fichier.

Source / Exemple :


Dim filename As String
    filename = "c:\fichier.ext"
    
    ' verifie si il existe dans la liste et l ajoute si c est pas le cas
    If mime1.Existe(filename) = False Then mime1.Add filename
    
    ' retourne le nom du programme associé
    aa = mime1.Item(filename).Execute
    
    ' Retourne l image associé
    Set Me.Picture = mime1.ImageList(filename)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005

Merci pour ton contrôle.
Les fichiers de la source sont un peu farfelus (certains sont vides ou ne servent pas), mais sinon dans l'utilisation, ça fonctionne à merveille !

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.