Extraire les fichiers ressources

Soyez le premier à donner votre avis sur cette source.

Vue 8 758 fois - Téléchargée 536 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

_Spartacus_
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
pavid
Messages postés
5
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
27 octobre 2005
-
Extra
merci bien

Pavid
ratala
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 ??
abdobilal
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.

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.