Extraire les fichiers ressources

Soyez le premier à donner votre avis sur cette source.

Vue 8 853 fois - Téléchargée 561 fois

Description

J'ai vu dans ce site des sources de ce type mais à mon grand regret ne marche pas ou bien sont beaucoup trop longues.J'ais donc fait ce petit truc.
Désolé s'il y en a déja.

Daetips
Brice1988@wanadoo.fr
www.daetip.fr.st
www.vbfr.fr.fm

Source / Exemple :


Dim b() As Byte

Sub Extrait()
b = LoadResData(101, "CUSTOM")
Open "c:\form.frm" For Binary As #1
Put #1, , b
Close #1
End
End Sub

Private Sub Form_Load()
Extrait
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
13
Date d'inscription
dimanche 30 octobre 2005
Statut
Membre
Dernière intervention
4 décembre 2009

merci bcp pour votre ligne de commande.
Messages postés
248
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
22 juin 2008

Bonjour,
moi il me dit resource with idetifier "101" not found pourtant j'ai mis mon fichier .rc dans le programme.
Comment est-ce que je connais l'ID ??
Messages postés
5
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
27 octobre 2005

Extra
merci bien

Pavid
Messages postés
7
Date d'inscription
jeudi 16 décembre 2004
Statut
Membre
Dernière intervention
26 janvier 2005

salut,

bravo, et merci pour le tuyau

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.