home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / INCLUDE / MODVBERR.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-11-05  |  5.6 KB  |  67 lines
  1. Attribute VB_Name = "modVBErrors"
  2. Option Explicit
  3. '-------------------------------------------------------------------------
  4. 'This Module provides VB4 Error constants
  5. '-------------------------------------------------------------------------
  6.  
  7. 'VB4 Errors
  8. Public Const ERR_RETURN_WITHOUT_GOSUB As Integer = 3                'Return without GoSub
  9. Public Const ERR_INVALID_PROCEDURE_CALL  As Integer = 5             'Invalid procedure call
  10. Public Const ERR_OVER_FLOW  As Integer = 6                          'Overflow
  11. Public Const ERR_OUT_OF_MEMORY  As Integer = 7                      'Out of memory
  12. Public Const ERR_SUBSCRIPT_OUT_OF_RANGE  As Integer = 9             'Subscript out of range
  13. Public Const ERR_ARRAY_FIXED_OR_LOCKED  As Integer = 10             'This array is fixed or temporarily locked
  14. Public Const ERR_DIVISION_BY_ZERO  As Integer = 11                  'Division by zero
  15. Public Const ERR_TYPE_MISMATCH  As Integer = 13                     'Type mismatch
  16. Public Const ERR_OUT_OF_STRING_SPACE  As Integer = 14               'Out of string space
  17. Public Const ERR_EXPRESSION_TOO_COMPLEX As Integer = 16             'Expression Too Complex
  18. Public Const ERR_CANT_PERFORM_OPERATION As Integer = 17             'Can 't perform requested operation
  19. Public Const ERR_USER_INTERRUPT  As Integer = 18                    'User interrupt occurred
  20. Public Const ERR_RESUME_WITHOUT_ERROR  As Integer = 20              'Resume without error
  21. Public Const ERR_OUT_OF_STACK_SPACE  As Integer = 28                'Out of stack space
  22. Public Const ERR_PROCEDURE_NOT_DEFINED  As Integer = 35             'Sub, Function, or Property not defined
  23. Public Const ERR_TOO_MANY_DLL_CLIENTS As Integer = 47               'Too many DLL application clients
  24. Public Const ERR_ERROR_LOADING_DLL As Integer = 48                  'Error in loading DLL
  25. Public Const ERR_BAD_DLL_CALL  As Integer = 49                      'Bad DLL calling convention
  26. Public Const ERR_INTERNAL_ERROR  As Integer = 51                    'Internal Error
  27. Public Const ERR_BAD_FILE_NAME  As Integer = 52                     'Bad file name or number
  28. Public Const ERR_FILE_NOT_FOUND  As Integer = 53                    'File Not found
  29. Public Const ERR_BAD_FILE_MODE  As Integer = 54                     'Bad file mode
  30. Public Const ERR_FILE_ALREADY_OPEN  As Integer = 55                 'File already open
  31. Public Const ERR_DEVICE_IO_ERROR  As Integer = 57                   'Device I/O error
  32. Public Const ERR_FILE_ALREADY_EXISTS  As Integer = 58               'File already exists
  33. Public Const ERR_BAD_RECORD_LENGTH  As Integer = 59                 'Bad record length
  34. Public Const ERR_DISK_FULL  As Integer = 61                         'Disk full
  35. Public Const ERR_IPUT_PAST_EOF  As Integer = 62                     'Input past end of file
  36. Public Const ERR_BAD_RECORD_NUMBER  As Integer = 63                 'Bad record number
  37. Public Const ERR_TOO_MANY_FILES  As Integer = 67                    'Too many files
  38. Public Const ERR_DEVICE_UNAVAILABLE  As Integer = 68                'Device unavailable
  39. Public Const ERR_PERMISSION_DENIED  As Integer = 70                 'Permission denied
  40. Public Const ERR_DISK_NOT_READY  As Integer = 71                    'Disk Not ready
  41. Public Const ERR_CANT_RENAME_WITH_DIFFERENT_DRIVE  As Integer = 74  'Can 't rename with different drive
  42. Public Const ERR_PATH_OR_FILE_ACCESS_ERROR  As Integer = 75         'Path/File access error
  43. Public Const ERR_PATH_NOT_FOUND  As Integer = 76                    'Path Not found
  44. Public Const ERR_OBJECT_VARIABLE_NOT_SET  As Integer = 91           'Object variable or With block variable not set
  45. Public Const ERR_FOR_LOOP_NOT_INITIALIZED As Integer = 92           'For loop not initialized
  46. Public Const ERR_INVALID_PATTERN_STRING As Integer = 93             'Invalid pattern string
  47. Public Const ERR_INVALID_USE_OF_NULL  As Integer = 94               'Invalid use of Null
  48. Public Const ERR_CONTROL_ARRAY_ELEMENT_DOESNOT_EXIST = 340
  49. Public Const ERR_INVALID_PROPERTY_VALUE  As Integer = 380           'Invalid property value
  50. Public Const ERR_INVALID_PROPERTY_ARRAY_INDEX  As Integer = 381
  51. Public Const ERR_PROPERTY_IS_READ_ONLY  As Integer = 383
  52. Public Const ERR_CANT_CREATE_OBJECT  As Integer = 429               'OLE Automation server can't create object
  53. Public Const ERR_METHOD_NOT_APPLICABLE  As Integer = 444            'Method not applicable in this context
  54. Public Const ERR_INVALID_ORDINAL As Integer = 452                   'Invalid ordinal
  55. Public Const ERR_DLL_FUNCITON_NOT_FOUND  As Integer = 453           'Specified DLL function not found
  56. Public Const ERR_DUPLICATE_KEY  As Integer = 457                    'Duplicate Key
  57. Public Const ERR_INVALID_CLIPBOARD_FORMAT  As Integer = 460         'Invalid Clipboard format
  58. Public Const ERR_FORMAT_DOESNT_MATCH_DATA As Integer = 461          'Specified format doesn't match format of data
  59. Public Const ERR_CANT_CREATE_AUTOREDRAW  As Integer = 480           'Can 't create AutoRedraw image
  60. Public Const ERR_INVALID_PICTURE  As Integer = 481                  'Invalid Picture
  61. Public Const ERR_PRINTER_ERROR  As Integer = 482                    'Printer Error
  62. Public Const ERR_PRINTER_DRIVE_RPROPERTY_INVALID  As Integer = 483  'Printer driver does not support specified property
  63. Public Const ERR_PRINTER_SYSTEM_INFO_PROBLEM  As Integer = 484      'Problem getting printer information from the system. Make sure the printer is set up correctly
  64. Public Const ERR_INVALID_PICTURE_TYPE  As Integer = 485             'Invalid picture type
  65. Public Const ERR_CANT_EMPTY_CLIPBOARD As Integer = 520              'Can 't empty Clipboard
  66. Public Const ERR_CANT_OPEN_CLIPBOARD  As Integer = 521              'Can 't open Clipboard
  67.