-
I tried that it doesnt work..
Code:
Dim arrByte() As Byte
Dim IFFN As Integer
Dim strTempPath As String
On Error GoTo ErrorHandler ' Enable error-handling routine.
arrByte = LoadResData(rndnum, "Custom")
strTempPath = App.Path & "\Loading.jpg"
IFFN = FreeFile
Open strTempPath For Binary As IFFN
Put #IFFN, , arrByte
Close #IFFN
Form1.Picture1.Picture = LoadPicture(strTempPath)
Kill strTempPath
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case 326 ' "Res Index not there" error.
Exit Sub
End Select
End Sub
-
Did you get an error? Where? What? Try to break in the errorhandler or remove the on error statement and tell us the results
-
The error
I typed in for the res file to get
the 400 index picture. Its not there,
But I was hoping It would skip the
error. Its error 326... Invalid res
index. What should I do>?
-
*Ahem* Someone else have to reply since i'm not good at res files, i don't have the editor
