crtftext.cls

用VB6开发的读写rtf文档的源码,支持插入表格,图片及多字体样式

                strR = strR & "\chbgdkbdiag"
            Case ptt11_粗网格线:
                strR = strR & "\chbgdkcross"
            Case ptt12_粗斜网格线:
                strR = strR & "\chbgdkdcross"
            End Select
            If mvarCharShadow Then strR = strR & "\chshdng" & mvarCharShadow '字符阴影百分比
            If mvarCharPatForeColor <> clr00_默认 Then
                strR = strR & "\chcfpat" & mvarCharPatForeColor
            End If
            If mvarCharPatBackColor <> clr00_默认 Then
                strR = strR & "\chcbpat" & mvarCharPatBackColor
            End If
        End If
        If mvarHighlight Then
            strR = strR & "\highlight" & mvarHighlightColor
        End If
'    Else
'        If mvarFontSizeFixup <> 0 Then strR = strR & "\fs" & mvarFontSizeFixup
    End If
    strR = strR & vbCrLf & StrToASC(mvarText)
    GetTextRTF = strR
End Function


Public Property Let HighlightColor(ByVal vData As ColorEnum)
Attribute HighlightColor.VB_Description = "高亮显示背景颜色。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.HighlightColor = 5
    mvarHighlightColor = vData
End Property


Public Property Get HighlightColor() As ColorEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.HighlightColor
    HighlightColor = mvarHighlightColor
End Property



Public Property Let Highlight(ByVal vData As Boolean)
Attribute Highlight.VB_Description = "高亮显示。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Highlight = 5
    mvarHighlight = vData
End Property


Public Property Get Highlight() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Highlight
    Highlight = mvarHighlight
End Property



Public Property Let PatType(ByVal vData As PatTypeEnum)
Attribute PatType.VB_Description = "背景图案类型，1～12，默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatType = 5
    mvarPatType = vData
End Property


Public Property Get PatType() As PatTypeEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PatType
    PatType = mvarPatType
End Property



Public Property Let CharPatBackColor(ByVal vData As ColorEnum)
Attribute CharPatBackColor.VB_Description = "背景图案前景色。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CharPatBackColor = 5
    mvarCharPatBackColor = vData
End Property


Public Property Get CharPatBackColor() As ColorEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CharPatBackColor
    CharPatBackColor = mvarCharPatBackColor
End Property



Public Property Let CharPatForeColor(ByVal vData As ColorEnum)
Attribute CharPatForeColor.VB_Description = "背景图案填充色。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CharPatForeColor = 5
    mvarCharPatForeColor = vData
End Property


Public Property Get CharPatForeColor() As ColorEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CharPatForeColor
    CharPatForeColor = mvarCharPatForeColor
End Property



Public Property Let CharShadow(ByVal vData As Boolean)
Attribute CharShadow.VB_Description = "字符阴影。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CharShadow = 5
    mvarCharShadow = vData
End Property


Public Property Get CharShadow() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CharShadow
    CharShadow = mvarCharShadow
End Property



Public Property Let CharBorder(ByVal vData As Boolean)
Attribute CharBorder.VB_Description = "字符边框。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CharBorder = 5
    mvarCharBorder = vData
End Property


Public Property Get CharBorder() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CharBorder
    CharBorder = mvarCharBorder
End Property



Public Property Let WebHidden(ByVal vData As Boolean)
Attribute WebHidden.VB_Description = "Web方式下完全隐藏，包括在保存时。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WebHidden = 5
    mvarWebHidden = vData
End Property


Public Property Get WebHidden() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.WebHidden
    WebHidden = mvarWebHidden
End Property



Public Property Let Hided(ByVal vData As Boolean)
Attribute Hided.VB_Description = "隐藏文本，默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Hided = 5
    mvarHided = vData
End Property


Public Property Get Hided() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Hided
    Hided = mvarHided
End Property



Public Property Let UnderLineColor(ByVal vData As ColorEnum)
Attribute UnderLineColor.VB_Description = "下划线颜色索引值。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.UnderLineColor = 5
    mvarUnderLineColor = vData
End Property


Public Property Get UnderLineColor() As ColorEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.UnderLineColor
    UnderLineColor = mvarUnderLineColor
End Property



Public Property Let UnderLineType(ByVal vData As UnderLineTypeEnum)
Attribute UnderLineType.VB_Description = "下划线类型，1～17，默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.UnderLineType = 5
    mvarUnderLineType = vData
End Property


Public Property Get UnderLineType() As UnderLineTypeEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.UnderLineType
    UnderLineType = mvarUnderLineType
End Property



Public Property Let SuperChar(ByVal vData As Boolean)
Attribute SuperChar.VB_Description = "上标。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.SuperChar = 5
    mvarSuperChar = vData
End Property


Public Property Get SuperChar() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.SuperChar
    SuperChar = mvarSuperChar
End Property



Public Property Let SubChar(ByVal vData As Boolean)
Attribute SubChar.VB_Description = "下标。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.SubChar = 5
    mvarSubChar = vData
End Property


Public Property Get SubChar() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.SubChar
    SubChar = mvarSubChar
End Property



Public Property Let StrikeD(ByVal vData As Boolean)
Attribute StrikeD.VB_Description = "双删除线，默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.StrikeD = 5
    mvarStrikeD = vData
End Property


Public Property Get StrikeD() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.StrikeD
    StrikeD = mvarStrikeD
End Property



Public Property Let Strike(ByVal vData As Boolean)
Attribute Strike.VB_Description = "删除线，默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Strike = 5
    mvarStrike = vData
End Property


Public Property Get Strike() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Strike
    Strike = mvarStrike
End Property



Public Property Let Shadow(ByVal vData As Boolean)
Attribute Shadow.VB_Description = "阴影，默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Shadow = 5
    mvarShadow = vData
End Property


Public Property Get Shadow() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Shadow
    Shadow = mvarShadow
End Property



Public Property Let OutLine(ByVal vData As Boolean)
Attribute OutLine.VB_Description = "边框。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.OutLine = 5
    mvarOutLine = vData
End Property


Public Property Get OutLine() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.OutLine
    OutLine = mvarOutLine
End Property



Public Property Let Expand(ByVal vData As Long)
Attribute Expand.VB_Description = "字符间距，负值表示压缩。默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Expand = 5
    mvarExpand = vData
End Property


Public Property Get Expand() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Expand
    Expand = mvarExpand
End Property



Public Property Let Embo(ByVal vData As EmboEnum)
Attribute Embo.VB_Description = "浮雕雕刻效果。0:无;1:浮雕;2:雕刻。默认:0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Embo = 5
    mvarEmbo = vData
End Property


Public Property Get Embo() As EmboEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Embo
    Embo = mvarEmbo
End Property



Public Property Let ScaleX(ByVal vData As Long)
Attribute ScaleX.VB_Description = "横向缩放比例，默认：100。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ScaleX = 5
    mvarScaleX = vData
End Property


Public Property Get ScaleX() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ScaleX
    ScaleX = mvarScaleX
End Property



Public Property Let AnimType(ByVal vData As AnimTypeEnum)
Attribute AnimType.VB_Description = "动态文本类型，1～6。默认：0。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AnimType = 5
    mvarAnimType = vData
End Property


Public Property Get AnimType() As AnimTypeEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AnimType
    AnimType = mvarAnimType
End Property



Public Property Let CharStyle(ByVal vData As CharStyleEnum)
Attribute CharStyle.VB_Description = "字符样式0，1，2...，默认：-1。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CharStyle = 5
    mvarCharStyle = vData
End Property


Public Property Get CharStyle() As CharStyleEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CharStyle
    CharStyle = mvarCharStyle
End Property



Public Property Let FontStyle(ByVal vData As FontStyleEnum)
Attribute FontStyle.VB_Description = "字体样式0，1，2，...，默认：-1"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.FontStyle = 5
    mvarFontStyle = vData
End Property


Public Property Get FontStyle() As FontStyleEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.FontStyle
    FontStyle = mvarFontStyle
End Property


Public Property Let FontSizeFixup(ByVal vData As FontSizeEnum)
Attribute FontSizeFixup.VB_Description = "字体尺寸。默认：21"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.FontSizeFixup = 5
    mvarFontSizeFixup = vData
End Property


Public Property Get FontSizeFixup() As FontSizeEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.FontSizeFixup
    FontSizeFixup = mvarFontSizeFixup
End Property



Public Property Let ForeColor(ByVal vData As ColorEnum)
Attribute ForeColor.VB_Description = "前景色，默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ForeColor = 5
    mvarForeColor = vData
End Property


Public Property Get ForeColor() As ColorEnum
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ForeColor
    ForeColor = mvarForeColor
End Property



Public Property Let Italic(ByVal vData As Boolean)
Attribute Italic.VB_Description = "斜体。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Italic = 5
    mvarItalic = vData
End Property


Public Property Get Italic() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Italic
    Italic = mvarItalic
End Property



Public Property Let Bold(ByVal vData As Boolean)
Attribute Bold.VB_Description = "粗体。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Bold = 5
    mvarBold = vData
End Property


Public Property Get Bold() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Bold
    Bold = mvarBold
End Property



Public Property Let Text(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Text = 5
    mvarText = vData
End Property


Public Property Get Text() As String
Attribute Text.VB_UserMemId = 0
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Text
    Text = mvarText
End Property