Soyez le premier à donner votre avis sur cette source.
Vue 3 970 fois - Téléchargée 369 fois
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
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
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 !
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.