Accessing GIF and JPG files from your Program - Example
This example will show you how to use the LoadDataIntoFile function to load GIF or JPG file from resource file into Picture Box.

Add 1 Picture Box to your form (named Picture1) and add 1 GIF or JPG file to your Resouce File. Set the file ID to be 101.

Copy the following code to your form:

Public Sub LoadDataIntoFile(DataName As Integer, FileName As String)
    Dim myArray() As Byte
    Dim myFile As Long
    If Dir(FileName) = "" Then
        myArray = LoadResData(DataName, "CUSTOM")
        myFile = FreeFile
        Open FileName For Binary Access Write As #myFile
        Put #myFile, , myArray
        Close #myFile
    End If
End Sub


Private Sub Form_Load()  
'this will copy the GIF/JPG file to c:\tmpfile.$$$
    LoadDataIntoFile 101, "c:\tmpfile.$$$"
'this will load the c:\tmpfile.$$$ file to Picture1 Picture Box
    Picture1.Picture = LoadPicture("c:\tmpfile.$$$")
End Sub

Back  Forward