|
-
Jun 6th, 2000, 07:55 AM
#1
Thread Starter
Addicted Member
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
-
Jun 6th, 2000, 08:18 AM
#2
transcendental analytic
Did you get an error? Where? What? Try to break in the errorhandler or remove the on error statement and tell us the results
Use  
writing software in C++ is like driving rivets into steel beam with a toothpick.
writing haskell makes your life easier:
reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.
-
Jun 6th, 2000, 08:21 AM
#3
Thread Starter
Addicted Member
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>?
-
Jun 6th, 2000, 08:27 AM
#4
transcendental analytic
*Ahem* Someone else have to reply since i'm not good at res files, i don't have the editor
Use
writing software in C++ is like driving rivets into steel beam with a toothpick.
writing haskell makes your life easier:
reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote