abstractobject.vb

来自「通过串口发送短信的模块,采用vb.net编写」· VB 代码 · 共 74 行

Namespace Common

    Public MustInherit Class AbstractObject

        Protected strAbout As String
        Protected isDebugMode As Boolean
        Protected strLogFolderPath As String
        Protected lLogSize As Long
        Protected enumLogType As EnumLogType
        Protected isAnyError As Boolean

#Region "Properties"
        Public ReadOnly Property About() As String
            Get
                Return Resource.GetMessage("ABOUT")
            End Get
        End Property

        Public Property DebugMode() As Boolean
            Get
                Return Me.isDebugMode
            End Get
            Set(ByVal Value As Boolean)
                Me.isDebugMode = Value
            End Set
        End Property

        Public Property LogFolderPath() As String
            Get
                Return Me.strLogFolderPath
            End Get
            Set(ByVal Value As String)
                Me.strLogFolderPath = Value
            End Set
        End Property

        Public ReadOnly Property LogSize() As Long
            Get
                Return Me.lLogSize
            End Get
        End Property

        Public Property LogType() As EnumLogType
            Get
                Return Me.enumLogType
            End Get
            Set(ByVal Value As EnumLogType)
                Me.enumLogType = Value
            End Set
        End Property
#End Region

#Region "Functions"

        Public Function IsError() As Boolean
            IsError = Me.isAnyError
        End Function

        Public Function IsError(ByVal showMsgBox As Boolean) As Boolean
            IsError = Me.isAnyError
        End Function


        Public Function IsError(ByVal showMsgBox As Boolean, _
                ByVal msgBoxTitle As String) As Boolean
            IsError = Me.isAnyError
        End Function

#End Region
    End Class

End Namespace