Inseré un fichier dans les ressources

aurelien2723 Messages postés 181 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 26 janvier 2011 - 20 mars 2008 à 09:11
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 mars 2008 à 11:27
    Bonjour,

Au même titre que cette fonction extrait des données des ressources :
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


Existe t'il une fonction qui permet d'ajouter un fichier dans ces ressources svp??

Merci

4 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
20 mars 2008 à 10:19
Par pitié, que l'on m'explique la ligne :

ReDim Preserve BUFFER_RES_DATA(UBound(BUFFER_RES_DATA))
0
aurelien2723 Messages postés 181 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 26 janvier 2011 1
20 mars 2008 à 11:17
heu j'en sais rien, j'ai recopier... :s

par contre ca répond pas à ma question :( ....
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
20 mars 2008 à 11:26
tu pourra pas modifier l'exe : il est utilisé par toi.

faut voir a modifier les resources depuis un autre Exe
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
20 mars 2008 à 11:27
ReDim Preserve BUFFER_RES_DATA(UBound(BUFFER_RES_DATA))
=> Donne a mon tableau BUFFER_RES_DATA la taille du tableau BUFFER_RES_DATA

c'est recherché, hein ^^
0
Rejoignez-nous