I have a routine that looks like this:
[code]
FUNCTION FN_PbLoadBitMap(BYVAL BmpName AS STRING, BmpDc as DWORD) AS DWORD
LOCAL BmpHndl AS DWORD
IF ISFILE(BmpName$) = 0 THEN EXIT FUNCTION
GRAPHIC BITMAP LOAD BmpName$, 0, 0 TO BmpHndl
IF BmpHndl = 0 THEN
MSGBOX "LOAD FAILED"
EXIT FUNCTION
END IF
GRAPHIC ATTACH BmpHndl, 0 '<----- ERROR 5 here
GRAPHIC GET DC TO BmpDC
FN_PbLoadBitMap = BmpHndl
END FUNCTION
[code]
Most of the time this works. However, sometimes, although the file to load is valid and produces a handle, the attach fails.
Is there a way to trap error 5 other than "TRY" or "ON ERROR". Both of those do not work.
[code]
FUNCTION FN_PbLoadBitMap(BYVAL BmpName AS STRING, BmpDc as DWORD) AS DWORD
LOCAL BmpHndl AS DWORD
IF ISFILE(BmpName$) = 0 THEN EXIT FUNCTION
GRAPHIC BITMAP LOAD BmpName$, 0, 0 TO BmpHndl
IF BmpHndl = 0 THEN
MSGBOX "LOAD FAILED"
EXIT FUNCTION
END IF
GRAPHIC ATTACH BmpHndl, 0 '<----- ERROR 5 here
GRAPHIC GET DC TO BmpDC
FN_PbLoadBitMap = BmpHndl
END FUNCTION
[code]
Most of the time this works. However, sometimes, although the file to load is valid and produces a handle, the attach fails.
Is there a way to trap error 5 other than "TRY" or "ON ERROR". Both of those do not work.
Comment