clserrors.cls

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· CLS 代码 · 共 28 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClsErrors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private m_Error_Desc As String
Private m_Error_Number As Long

Public Property Let Error_Desc(description As String)
   m_Error_Desc = description
End Property
Public Property Get Error_Desc() As String
   Error_Desc = m_Error_Desc
End Property

Public Property Let Error_Number(Err_Number As Long)
   m_Error_Number = Err_Number
End Property
Public Property Get Error_Number() As Long
   Error_Number = m_Error_Number
End Property