ErrorMsg     Event

Public Event ErrorMsg(Source$, Description$)

This Event is raised when an error occurs in EcGradient. You can deal with it in your main program with a routine like the one shown below.

Example

Private Sub EcGradient_ErrorMsg(Source As String, Description As String)
  'Shows how to deal with any critical error that may arise in EcGrid,
  'instead of crashing the program
  Dim i As Integer, ErrMsg$
  ErrMsg$ = Source + vbCrLf + Description
  i = MsgBox(ErrMsg$, vbAbortRetryIgnore)
  If i = vbAbort Then End
  On Error GoTo 0
End Sub
 

Copyright © 2005, Encore Consulting Pty Ltd