I can fix this one! SuperSteve to the Save!
You mention: "I get an "Illegal function call" error on line 7 (the _PutImage line)."
1 -- Dim Image(10) As Long
2 -- Image(0) = _LoadImage("RecPics/cat.jpg", 32)
3 -- Image(1) = _LoadImage("RecPics/cat.jpg", 32)
4 -- Image(2) = _LoadImage("RecPics/cat.jpg", 32)
5 -- Image(3) = _LoadImage("RecPics/cat.jpg", 32)
6 -- Image(4) = _LoadImage("RecPics/cat.jpg", 32)
7 -- _PutImage (0, 0), Image(2)
Only way that's line 7 is if that's the complete code, in which case, it's missing the call to work in a graphic screen.
Code: (Select All)
SCREEN _NEWIMAGE(800,600,32) 'dont forget me!
Dim Image(10) As Long
Image(0) = _LoadImage("RecPics/cat.jpg", 32)
Image(1) = _LoadImage("RecPics/cat.jpg", 32)
Image(2) = _LoadImage("RecPics/cat.jpg", 32)
Image(3) = _LoadImage("RecPics/cat.jpg", 32)
Image(4) = _LoadImage("RecPics/cat.jpg", 32)
_PutImage (0, 0), Image(2)
Sleep
_FreeImage (Image(2))
You mention: "I get an "Illegal function call" error on line 7 (the _PutImage line)."
1 -- Dim Image(10) As Long
2 -- Image(0) = _LoadImage("RecPics/cat.jpg", 32)
3 -- Image(1) = _LoadImage("RecPics/cat.jpg", 32)
4 -- Image(2) = _LoadImage("RecPics/cat.jpg", 32)
5 -- Image(3) = _LoadImage("RecPics/cat.jpg", 32)
6 -- Image(4) = _LoadImage("RecPics/cat.jpg", 32)
7 -- _PutImage (0, 0), Image(2)
Only way that's line 7 is if that's the complete code, in which case, it's missing the call to work in a graphic screen.