begin process at 2012 05 24 03:50:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > RÉCUPÉRATION DES IMAGES SYSTÈME DEPUIS LEUR EXTENSION OU LEUR CONTENU [MODULE DE CLASSE]

RÉCUPÉRATION DES IMAGES SYSTÈME DEPUIS LEUR EXTENSION OU LEUR CONTENU [MODULE DE CLASSE]


 Information sur la source

Note :
Aucune note
Catégorie :Graphique Classé sous :DrawIconEx, ExtractAssociatedIcon, système, picture, class Niveau :Débutant Date de création :23/07/2009 Date de mise à jour :23/07/2009 21:47:30 Vu / téléchargé :2 698 / 268
Auteur : PCPT

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
J'avais besoin d'une classe permettant de générer rapidement les images windows de type SdtPicture sans avoir à dessiner sur un hDC pour l'enregistrer ensuite


je partage le résultat, en espérant que çà vous soit utile

l'utilisation est très simple (cf code ci-dessous), à double usage :

1. récupération de l'icône associée à un fichier, un dossier ou un drive (exemple : l'étoile sur le dossier favoris de win xp)
2. l'extraction de toutes les icônes attachées à un exe, dll, ocx...


pour cette 2e partie je l'ai ajoutée uniquement parce que j'avais terminé le principal de la classe, mais ce n'était pas le but de départ


n'hésitez pas à remonter vos avis, idées, etc... ;)

Source

  • Private AfSysImg As New AfCls_SysImage
  • Private Sub Exemple1()
  • Dim sKey As String
  • sKey = AfSysImg.GetKey(Txt_FileName.Text)
  • If Len(sKey) Then
  • AfSysImg.DrawPicture sKey, Me.hDC, 50, 50
  • Image1.Picture = AfSysImg.GetPicture(sKey)
  • End If
  • End Sub
  • '-----------------------------------------------------------
  • Private Sub Exemple2()
  • Dim AfImages As New AfCls_SysImage, i As Integer
  • With AfImages
  • AfImages.KeepHistory = False
  • For i = 0 To .CountTotalImages("c:\windows\explorer.exe") - 1
  • SavePicture .GetIndexedPicture("c:\windows\explorer.exe", i), App.Path & "\explorer_" & i & ".bmp"
  • Next i
  • End With
  • Set AfImages = Nothing
  • End Sub
Private AfSysImg As New AfCls_SysImage
Private Sub Exemple1()
    Dim sKey As String
    sKey = AfSysImg.GetKey(Txt_FileName.Text)
    If Len(sKey) Then
        AfSysImg.DrawPicture sKey, Me.hDC, 50, 50
        Image1.Picture = AfSysImg.GetPicture(sKey)
    End If
End Sub

'-----------------------------------------------------------

Private Sub Exemple2()
    Dim AfImages As New AfCls_SysImage, i As Integer
    With AfImages
        AfImages.KeepHistory = False
        For i = 0 To .CountTotalImages("c:\windows\explorer.exe") - 1
            SavePicture .GetIndexedPicture("c:\windows\explorer.exe", i), App.Path & "\explorer_" & i & ".bmp"
        Next i
    End With
    Set AfImages = Nothing
End Sub

 Conclusion

testé uniquement sous XP

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

23 juillet 2009 04:18:38 :
zip
23 juillet 2009 10:49:14 :
un deleteobject en trop, quelques fautes dans la description
23 juillet 2009 21:47:31 :
une bricole

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) [VB2008] OBSERVER L'ACTIVITÉ INPUT (CLAVIER SOURIS) DE L'UTI...
Source avec Zip Source avec une capture PUBLIC SHARED SANS MODULE - VARIABLE SINGLETON : IDENTIFICAT...
Source avec Zip Source avec une capture FILE FOLDER LOCKER - BLOQUER (ET DÉBLOQUER) L'ACCÈS À CERTAI...
Source avec Zip Source avec une capture FOLDER HELPER - DOSSIERS SPECIAUX, MANIPULATION DE DOSSIERS,...
Source avec Zip Source avec une capture TEXTBOX AUTOCOMPLETE - ZONE DE TEXTE PRÉREMPLISSABLE LORS DE...
Toutes les sources de PCPT

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) IMAGE ANIMÉE DANS UNE COLONNE DE DATAGRIDVIEW par foliv57
Source avec Zip Source avec une capture Source .NET (Dotnet) TRIEUR DE PHOTOS par Le Pivert
Source avec Zip Source .NET (Dotnet) ENREGISTREMENT ET DIAGRAMME par jpot31
REDIMENSIONNEMENT D'IMAGE PHP par JStevens
Source avec Zip Source avec une capture Source .NET (Dotnet) POIDS D'UNE IMAGE BMP DE PROFONDEUR 24 BITS par dheroux
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

CLASS BASS par Duke49
Source .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) MERGEIMAGES par Le Pivert
Source avec Zip Source avec une capture AFFICHEUR TYPE DIGITAL AVEC AVEC L'API SETBITMAPBITS par oeildedinde

Commentaires et avis

Commentaire de z1x2c3 le 28/07/2009 15:18:27

Salut,

Tu dis : "Est aussi montré la sauvegarde directe de l'image sur le disque (vers un "dossier existant)."
J'vois pas ou ?

Gagnerait a avoir un browser pour la recherche de fichiers

Sinon, bon travail !

Commentaire de Renfield le 28/07/2009 15:28:18 administrateur CS

SaveAsBMP dans le AfCls_SysImage.cls

Commentaire de nicolasq150784 le 23/04/2010 14:23:56

Il est ou le .sln ?


sinon sous vb2008Express moi je fais ça: (Si ça peut servir a quelqu'un)

Sub ExtractIcon(ByVal CheminFichier As String, ByVal MonBouton As Button)

        IconEx = Icon.ExtractAssociatedIcon(CheminFichier)
        MonBouton.Image = IconEx.ToBitmap

    End Sub

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Attente de connection avec Winsock... [ par Frederic ] Salut, Je me crée actuellement une application du type client/serveur [VB6/ contrôle Winsock]. Lorsqu'un système nous "demande" une connection, l'évén Comment sauvegarder une Picture Box? [ par WebMagique ] Je sais comment l'imprimer et en loader une mais comment sauvegarder l'image de la picturebox?P.S. Si vous connaissez un moyen et qu'il ne sagit image de fond d'une form [ par oniros ] Bonjour,J'affiche une feuille munie d'une image de fond (propriété Picture)Comment faire pour que cette image soit automatiquement à la taille de lafe Picture Box [ par Pierre ] BonjourJe suis débutant en programmation avec Visual Basic, je n'ai aucune formation en programmationJ'avais une revue ou il y avait un petit programm Recherche "graphiste" [ par boleann ] enfin, je cherche qqu qui sait dessiner sur un ordinateur!!je fais déjas quelques programmes, et je me suis lancé sur un jeu vidéo! alors rien de bien Mouvement d'un picture box sans timer [ par chookoo ] salut, jvoudrais savoir comment on fait la même chose que wite18 a demander mais sans timer !Merci bien !Chookoo Rotation BitMap Picture Box [ par Snoopy ] Comment faire faire une rotation de 90° à une picture dans une Picture Box Merci. video ds picture et mp3 [ par gustave ] comment faire pour centrer une video(avi ou mov, mpeg) dans une picture box ou alors la mettre a la taille de la picture meme question pour une image! comment sauver un picture box en jpg [ par fredo ] bonsoir,je débute sous vb6. j'ai appris sur ce site à sauver un picturebox mais l'image est sauvée au format bmp. existe-t-il une instruction pour sau Vidéo dans picture box [ par Top ] Comment insérer une vidéo dans une picture box.


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful El Capitan Yosemite National ParkPhoto Monument Valley Utah known as The Mittens
Photo vue aerienne de Le Logéo, Golfe du Morbihan (56) 

Visiter la photothèque

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,212 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)