home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb234._ / Xvb234.
Text File  |  1999-08-23  |  1KB  |  46 lines
  1. Attribute VB_Name = "modErrorHandling"
  2. Attribute VB_Ext_KEY = "RVB_UniqueId" ,""
  3. Option Explicit
  4.  
  5. '
  6.  
  7. ' Define your custom errors here.  Be sure to use numbers
  8. ' greater than 512, to avoid conflicts with OLE error numbers.
  9. Public Const MyObjectError1 = 1000
  10. Public Const MyObjectError2 = 1010
  11. Public Const MyObjectErrorN = 1234
  12. Public Const MyUnhandledError = 9999
  13.  
  14. ' This function will retrieve an error description from a resource
  15. ' file (.RES).  The ErrorNum is the index of the string
  16. ' in the resource file.  Called by RaiseError
  17. Private Function GetErrorTextFromResource(ErrorNum As Long) As String
  18.       On Error GoTo GetErrorTextFromResourceError
  19.       Dim strMsg As String
  20.      
  21.       ' get the string from a resource file
  22.       GetErrorTextFromResource = LoadResString(ErrorNum)
  23.  
  24.       Exit Function
  25. GetErrorTextFromResourceError:
  26.       If Err.Number <> 0 Then
  27.             GetErrorTextFromResource = "An unknown error has occurred!"
  28.       End If
  29. End Function
  30.  
  31. 'There are a number of methods for retrieving the error
  32. 'message.  The following method uses a resource file to
  33. 'retrieve strings indexed by the error number you are
  34. 'raising.
  35. Public Sub RaiseError(ErrorNumber As Long, Source As String)
  36.       Dim strErrorText As String
  37.  
  38.       'strErrorText = GetErrorTextFromResource(ErrorNumber)
  39.       ErrorNumber = Err.Number
  40.  
  41.       'raise an error back to the client
  42.       Err.Raise vbObjectError + ErrorNumber, Source, strErrorText
  43. End Sub
  44.  
  45.  
  46.