can this be done?

[rammy]

Hi,

Is it possible to load .jpg files into a resource file and then take them into an image control?

I managed to place then into a resource file. but how do I read them from there?? Tried using the LoadResData function, but I get an error

"Resource with identifier 101 not found"

I've stored the .jpg files in rhe resource file as "custom resource" and the id is 101.

any ideas???

Thanx.

[Joacim Andersson]

The exact syntax should be:

LoadResData(101, "CUSTOM")

[rammy]

but how do I store the jpeg files in the resource editor in the first place??

[Serge]

Check out Previous Post

[rammy]

If I want to set the picture property of an image control to a jpeg file from the resource file, what am I to do?
tried

Image1.Picture = LoadResPicture(101, "CUSTOM")

but that didn't work.

what am I doing wrong???

Thanx

[Serge]

You can use this function I wrote a while back:

Public Function GetPictureFromResource(p_lngResourceID As Integer) As IPictureDisp
    Dim bytArr() As Byte
    Dim intFFN As Integer
    Dim strPath As String

    bytArr = LoadResData(p_lngResourceID, "CUSTOM")
    strPath = App.Path & IIf(Right(App.Path, 1) = "\", "MyPicture.tmp", "\MyPicture.tmp")
    intFFN = FreeFile
    Open strPath For Binary As intFFN
    Put #intFFN, , bytArr
    Close #intFFN
    Set GetPictureFromResource = LoadPicture(strPath)
    Kill strPath
End Function

Now you can use this function like this:

Private Sub Command2_Click()
    Image1.Picture = GetPictureFromResource(101)
End Sub

[rammy]

thanx Serge, that worked! )