sp;Private Property Get CommentColor()
        CommentColor = m_CommentColor
    End Property

    Public Property Let StringColor(inColor)
        m_StringColor = "<font color=" & inColor & ">"
    End Property
    Private Property Get StringColor()
        StringColor = m_StringColor
    End Property

    Public Property Let TabSpaces(inSpaces)
        m_TabSpaces = inSpaces
    End Property
    Private Property Get TabSpaces()
        TabSpaces = m_TabSpaces
    End Property

    Public Property Let TableBGColor(inColor)
        m_TableBGColor = inColor
    End Property

    Private Property Get TableBGColor()
        TableBGColor = m_TableBGColor
    End Property

    Public Property Get ProcessingTime()
        ProcessingTime = Second(m_EndTime - m_StartTime)
    End Property

    Public Property Get LineCount()
        LineCount = m_LineCount
    End Property

    Public Property Get PathToFile()
        PathToFile = m_strPathToFile
    End Property
    Public Property Let PathToFile(inPath)
        m_strPathToFile = inPath
    End Property

    Private Property Let KeyMin(inMin)
        m_intKeyMin = inMin
    End Property
    Private Property Get KeyMin()
        KeyMin = m_intKeyMin
    End Property
    Private Property Let KeyMax(inMax)
        m_intKeyMax = inMax
    End Property
    Private Property Get KeyMax()
        KeyMax = m_intKeyMax
    End Property

    Private Sub CreateKeywords()
        objDict.Add "abs", "Abs"
        objDict.Add "and", "And&

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多VBS、ASP代码语法加亮显示的类

	Web www.51ec.org

上一篇信息学院： 远程获取内容，并将内容存在本地电脑上，包括任何文件！利用xmlhttp和adodb.stream,酷！绝对原创！

下一篇信息学院： 超长字符的智能分页-支持HTML。