Extraire des données des ressources vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 456 fois - Téléchargée 35 fois

Contenu du snippet

Ce module permet d'extraire des données des ressources du logiciel Il suffit d'indiquer un nom de fichier ou écrire les données, le type de resources (s'il sagit d'une icône, d'une image bitmap, d'un curseur ou d'une ressource personnalisée) et l'ID de la ressource.

Source / Exemple :


Public Function ExtractDR(FileName As String, RType As String, RNumber As String)
Dim BUFFER_RES_DATA() As Byte
Open FileName For Binary Access Write As #1
BUFFER_RES_DATA = LoadResData(RNumber, RType)
ReDim Preserve BUFFER_RES_DATA(UBound(BUFFER_RES_DATA))
Put #1, , BUFFER_RES_DATA
Close #1
End Function

Conclusion :


EX: Call ExtractDR("C:\NOM_FICHIER.FIC","CUSTOM","101"

A voir également

Ajouter un commentaire

Commentaires

Messages postés
53
Date d'inscription
mercredi 22 février 2006
Statut
Membre
Dernière intervention
15 novembre 2006

Alz!!!!!!!!!!!!!!
Un grand merci!!!!!!!!!!!
J'ai enfin compris grace a ton Code !!!!!!!!!!
10/10 !!!!!!!!!!
Franchement bravo mec...!
Rien à Dire

Encore Merci !
Messages postés
36
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
29 décembre 2010

Non... je crois pas qu'il y a d'erreur... on peut très bien utiliser une valeur string pour RNumber.
Messages postés
3
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
23 juillet 2004

Il y a une erreur RNumber As integer et non string

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.