Extraire des données des ressources vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 397 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

cs_hevi
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
YannGotti
Messages postés
37
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.
badr07
Messages postés
56
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 !

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.