blq
Messages postés97Date d'inscriptionvendredi 22 octobre 1999StatutMembreDernière intervention13 juin 20161 11 déc. 2010 à 23:26
Je suis pas un expert, mais n'est-il pas plus simple de faire :
thePictureBox.Image = System.Drawing.Icon.ExtractAssociatedIcon(theFile).ToBitmap()
Il y a peut-être des limites, mais cela fonctionne, du moins avec VB 2010 Express.
cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011 21 mars 2010 à 14:33
oups désolé je me suis trompé d'onglet dans fofox ;)
cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011 21 mars 2010 à 14:32
Salut, pareil que dockyf,
Dans ton programme ça marche mais étrangement quand je l'implémente dans un de mes projets, il me charge l'icone (avec la flèche pour les raccourcis) et non la miniature... Moi y'a n'a pas conprendre...
dockyf
Messages postés10Date d'inscriptionmardi 22 juin 2004StatutMembreDernière intervention11 décembre 2008 14 mai 2007 à 11:49
C'est bien le type de source que je recherche, mais je débute et je ne parviens pas à utiliser la classe.
Un peu d'aide serait le bienvenue.
Merci par avance.
FAB
cs_M51
Messages postés63Date d'inscriptiondimanche 20 novembre 2005StatutMembreDernière intervention10 août 2007 12 avril 2007 à 17:04
cs_julien__
Messages postés53Date d'inscriptionvendredi 2 janvier 2004StatutMembreDernière intervention 1 décembre 2008 20 sept. 2006 à 01:35
Cette classe est d'une grande utilité merci de l'avoir postée. Au fait, je cherche à faire la même chose, mais sans avoir besoin de donner un fichier en référence. Je cherche à faire un fonction me retorunant l'icone associé à une extension.
Pare ex. une fonction à laquelle je donne seulement l'extension sous forme d'une string ".txt" et me retorunant l'icone associé.. quelqu'un à une idée?
RogerAirFoil
Messages postés1Date d'inscriptiondimanche 26 janvier 2003StatutMembreDernière intervention15 juin 2006 15 juin 2006 à 21:34
Modification pour le bug .exe
ligne 76 à 92
Public ReadOnly Property AssociatedIcon(ByVal IconSize As IconType, Optional ByVal MustExist As Boolean = True) As Icon
Get
If MustExist Then
If Me.Exists Then
supprimer (inutile) 'Dim Info As New FileInfo(Me.OriginalPath)
supprimer 'AssociatedIcon = GetIcon(Info.Extension, IconSize)
ajouter AssociatedIcon = GetIcon(Me.OriginalPath, IconSize)
supprimer (inutile) 'Info = Nothing
Else
AssociatedIcon = Nothing
End If
Else
supprimer (inutile) 'Dim Info As New FileInfo(Me.OriginalPath)
supprimer 'AssociatedIcon = GetIcon(Info.Extension, IconSize)
ajouter AssociatedIcon = GetIcon(Me.OriginalPath, IconSize)
supprimer (inutile) 'Info = Nothing
End If
End Get
End Property
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 23 mars 2005 à 14:24
c'est du .net on ne peux pas l'ouvrir avec vb6.
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 23 mars 2005 à 14:24
c'est du .net on ne peux pas l'ouvrir avec vb6.
cs_julien__
Messages postés53Date d'inscriptionvendredi 2 janvier 2004StatutMembreDernière intervention 1 décembre 2008 23 mars 2005 à 10:39
J'ai un petit problème avec ce code... Ca marche avec tous les types de fichiers, sauf les .exe?
spy166
Messages postés207Date d'inscriptionjeudi 21 novembre 2002StatutMembreDernière intervention29 mars 2006 21 nov. 2004 à 09:56
Ce que je veux dire c'est que ça a été déjà fait.
Je dirais même que là j'ai l'impression que c'est du copier-coller.
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 21 nov. 2004 à 01:04
C'est effectivement du réchauffé mais il n'en reste pas moins que c'était à faire en vb.net
Les marshall c'est lourd et c'est pas plus mal quand qq d'autre s'est dejà pris la tête dessus.
Merci pour cette participation :p
spy166
Messages postés207Date d'inscriptionjeudi 21 novembre 2002StatutMembreDernière intervention29 mars 2006 19 nov. 2004 à 13:16
11 déc. 2010 à 23:26
thePictureBox.Image = System.Drawing.Icon.ExtractAssociatedIcon(theFile).ToBitmap()
Il y a peut-être des limites, mais cela fonctionne, du moins avec VB 2010 Express.
21 mars 2010 à 14:33
21 mars 2010 à 14:32
Dans ton programme ça marche mais étrangement quand je l'implémente dans un de mes projets, il me charge l'icone (avec la flèche pour les raccourcis) et non la miniature... Moi y'a n'a pas conprendre...
14 mai 2007 à 11:49
Un peu d'aide serait le bienvenue.
Merci par avance.
FAB
12 avril 2007 à 17:04
http://www.vbfrance.com/code.aspx?ID=41631
20 sept. 2006 à 01:35
Pare ex. une fonction à laquelle je donne seulement l'extension sous forme d'une string ".txt" et me retorunant l'icone associé.. quelqu'un à une idée?
15 juin 2006 à 21:34
ligne 76 à 92
Public ReadOnly Property AssociatedIcon(ByVal IconSize As IconType, Optional ByVal MustExist As Boolean = True) As Icon
Get
If MustExist Then
If Me.Exists Then
supprimer (inutile) 'Dim Info As New FileInfo(Me.OriginalPath)
supprimer 'AssociatedIcon = GetIcon(Info.Extension, IconSize)
ajouter AssociatedIcon = GetIcon(Me.OriginalPath, IconSize)
supprimer (inutile) 'Info = Nothing
Else
AssociatedIcon = Nothing
End If
Else
supprimer (inutile) 'Dim Info As New FileInfo(Me.OriginalPath)
supprimer 'AssociatedIcon = GetIcon(Info.Extension, IconSize)
ajouter AssociatedIcon = GetIcon(Me.OriginalPath, IconSize)
supprimer (inutile) 'Info = Nothing
End If
End Get
End Property
23 mars 2005 à 14:24
23 mars 2005 à 14:24
23 mars 2005 à 10:39
21 nov. 2004 à 09:56
Je dirais même que là j'ai l'impression que c'est du copier-coller.
21 nov. 2004 à 01:04
Les marshall c'est lourd et c'est pas plus mal quand qq d'autre s'est dejà pris la tête dessus.
Merci pour cette participation :p
19 nov. 2004 à 13:16