6 12 1 VB Example

LANSA Open Guide

6.12.1 VB Example

' enable default error handler

iRet = LceDisplayErrors(LceTrue, 0)

' disables default error handle

iRet = LceDisplayErrors(LceFalse, 0)

 

' enable default error handler setting txtMsg in frmDispErr as the 

' field to display error text

load frmDispErr

iRet = LceDisplayErrors(LceTrue, frmDispErr.txtMsg.hWnd)