LoadResData dans variable StringRésolu

Question

Bonsoir &#224; tous,




J'ai int&#233;gr&#233; &#224; mon project un fichier GIF, je peux si je veux je sauver sur le disque dur comme ceci:






Private Sub Form_Load()



    SaveResData 101, "GIF", "C:\MonImage.gif"



End Sub




Sub SaveResData(ByVal ID As Integer, ByVal IDtype, ByVal FilePath As String)


    Dim b() As Byte, intFileName As Integer


    b = LoadResData(ID, IDtype)


    intFileName = FreeFile


    Open FilePath For Binary As #intFileName


        Put #intFileName, , b


    Close #intFileName


End Sub







Cependant, je souhaiterais avoir une fonction du m&#234;me genre sauf
qu'elle n'enregistre pas les octets dans un fichier mais les renvoie
directement dans un String, par ex :




Private Sub Form_Load()

    Dim  strBuffer as string



    strBuffer  = GetResData(101, "GIF")



End Sub




Function GetResData(ByVal ID As Integer, ByVal IDtype) As String

    GetResData = CStr(LoadResData(ID, IDtype))

End Sub




Comment rendre cette fonction correcte car je ne comprends pas l'utilisation d'une variable de type Byte 



Merci d'avance

cboulas · Accepted Answer

Salut, ce que tu peux faire c'est tout stocker dans une variable de type : File
ou le stocker dans un Tableau de type Byte

SkyRocKo · Answer

Salut cboulas, merci pour ta r&#233;ponse 



Je regarderai &#231;a bient&#244;t.



Bonne continuation



SkyRocKo

SkyRocKo · Answer

Hello,



Je confirme la r&#233;ponse de cboulas, voici le code pour ceux que &#231;a int&#233;resse 



Function GetResData(ResId, ResType) As String

  Static myArray() As Byte

  Dim a As Long

 On Error Resume Next

    myArray = VB.LoadResData(ResId, ResType)

    If Err.Number = 9 Then Err.Clear

    GetResData = Space$(65536)

    For a = 0 To 65536

        Mid$(GetResData, a + 1, 1) = Chr$(myArray(a))

        If Err.Number = 9 Then Exit For

    Next a

End Function



Encore merci et bonne continuation 



++



SkyRocKo

LoadResData dans variable String

3 réponses

Discussions similaires