Attribute VB_Name = "mColors"
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Módulo responsável guardar cores
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Guarda o nome do módulo
Private Const ST_MY_NAME As String = "mColors"

' Enumeração de cores
Public Enum COLORS
    cBackText = 1
    cNormalText = 2
    cHighlighText = 3
    cBackround = 0
End Enum

' Guarda cores
Private vtln_Colors(3) As Long


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Função que retorna uma cor dado seu código
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function GetColor(cColor As COLORS) As Long
    On Error GoTo ErrTreat:
    
    ' Retorna
    GetColor = vtln_Colors(cColor)
    
    Exit Function
ErrTreat:
    LogErrMessage Err.Description, ST_MY_NAME + ".GetColor", CStr(cColor)
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Procedimento que guarda uma cor dado seu código e seu valor
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub SetColor(cColor As COLORS, lnValue As Long)
    On Error GoTo ErrTreat:
    
    ' Seta cor
    vtln_Colors(cColor) = lnValue
    
    Exit Sub
ErrTreat:
    LogErrMessage Err.Description, ST_MY_NAME + ".SetColor", CStr(cColor) + ST_ERR_SEP + CStr(lnValue)
End Sub