cerror.cls

WinBig. A file archive utility written in VB. Compression and decompression routines are LZSS. Full

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cError"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Public Enum ERROR_NUMBERS
    ERR_NO_FILE = 1001
    ERR_NOT_BIG
    ERR_NO_BIG
    ERR_NOT_FOUND
    ERR_ID_RANGE
End Enum

Private mvarDescription As String
Private mvarNumber As Long
Private Err_Descriptions() As String

Private Sub Class_Initialize()
    PopulateErrDescriptions
    mvarNumber = 0
    mvarDescription = ""
End Sub

Private Sub Class_Terminate()
    Erase Err_Descriptions
End Sub

Public Sub Clear()
    mvarNumber = 0
    mvarDescription = ""
End Sub

Public Property Let Number(ByVal vData As Long)
    mvarNumber = vData
End Property

Public Property Get Number() As Long
Attribute Number.VB_UserMemId = 0
    Number = mvarNumber
End Property

Public Property Let Description(ByVal vData As String)
    mvarDescription = vData
End Property

Public Property Get Description() As String
    If mvarNumber = 0 Then
        Description = ""
    ElseIf mvarNumber >= 1001 And mvarNumber <= 1005 Then
        Description = Err_Descriptions(mvarNumber)
    Else
        Description = mvarDescription
    End If
End Property

Private Sub PopulateErrDescriptions()
    ReDim Err_Descriptions(1001 To 1005) As String
    
    Err_Descriptions(ERROR_NUMBERS.ERR_NO_FILE) = "File not found."
    Err_Descriptions(ERROR_NUMBERS.ERR_NOT_BIG) = "File is not a Big file."
    Err_Descriptions(ERROR_NUMBERS.ERR_NO_BIG) = "No Big file has been loaded."
    Err_Descriptions(ERROR_NUMBERS.ERR_NOT_FOUND) = "File not found in archive."
    Err_Descriptions(ERROR_NUMBERS.ERR_ID_RANGE) = "ID out of bounds."
End Sub