crtfrow.cls

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

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



Public Property Let BorderLeft(ByVal vData As Boolean)
Attribute BorderLeft.VB_Description = "是否显示行左边框。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.BorderLeft = 5
    mvarBorderLeft = vData
End Property


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

Public Property Let Nested(ByVal vData As Boolean)
Attribute Nested.VB_Description = "是否是嵌套行，仅用于嵌套表。默认:False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Nested = 5
    Dim i As Long
    For i = 1 To mvarCells.Count
        mvarCells(i).Nested = vData
    Next
    mvarNested = vData
End Property

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


Public Property Let PadBottom(ByVal vData As Long)
Attribute PadBottom.VB_Description = "默认行中单元格下边距。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatBottom = 5
    mvarPadBottom = vData
End Property


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


Public Property Let PadTop(ByVal vData As Long)
Attribute PadTop.VB_Description = "默认行中单元格上边距。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatTop = 5
    mvarPadTop = vData
End Property


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


Public Property Let PadRight(ByVal vData As Long)
Attribute PadRight.VB_Description = "默认行中单元格右边距。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PadRight = 5
    mvarPadRight = vData
End Property


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



Public Property Let PadLeft(ByVal vData As Long)
Attribute PadLeft.VB_Description = "默认行中单元格左边距。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PadLeft = 5
    mvarPadLeft = vData
End Property


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



Public Property Let Height(ByVal vData As Long)
Attribute Height.VB_Description = "行高。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Height = 5
    mvarHeight = vData
End Property


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



Public Property Let Alignment(ByVal vData As RowAlignTypeEnum)
Attribute Alignment.VB_Description = "行对齐方式，包含其中单元格。1～3，默认:0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Alignment = 5
    mvarAlignment = vData
End Property


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



Public Property Let KeepFollow(ByVal vData As Boolean)
Attribute KeepFollow.VB_Description = "保持该行与后一行同页。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.KeepFollow = 5
    mvarKeepFollow = vData
End Property


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



Public Property Let Keep(ByVal vData As Boolean)
Attribute Keep.VB_Description = "保持该行与前一行同页。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Keep = 5
    mvarKeep = vData
End Property


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



Public Property Let IsHeadRow(ByVal vData As Boolean)
Attribute IsHeadRow.VB_Description = "是否是标题行，该行将在每页顶端显示。默认:False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.IsHeadRow = 5
    mvarIsHeadRow = vData
End Property


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



Public Property Let AutoFit(ByVal vData As Boolean)
Attribute AutoFit.VB_Description = "对于行是否开启自动适应。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AutoFit = 5
    mvarAutoFit = vData
End Property


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



Public Property Let PatPercentage(ByVal vData As Long)
Attribute PatPercentage.VB_Description = "底纹明暗百分比。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatPercentage = 5
    mvarPatPercentage = vData
End Property


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



Public Property Let PatBackColor(ByVal vData As ColorEnum)
Attribute PatBackColor.VB_Description = "底纹背景色索引值。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatBackColor = 5
    mvarPatBackColor = vData
End Property


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



Public Property Let PatForeColor(ByVal vData As ColorEnum)
Attribute PatForeColor.VB_Description = "底纹前景色索引值。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PatForeColor = 5
    mvarPatForeColor = vData
End Property


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



Public Property Let PatType(ByVal vData As PatTypeEnum)
Attribute PatType.VB_Description = "底纹类型。"
'向属性指派值时使用，位于赋值语句的左边。
'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 WidthAUnit(ByVal vData As CellLengthUnitEnum)
Attribute WidthAUnit.VB_Description = "行末不可见单元格宽度单位，1～3。默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WidthAUnit = 5
    mvarWidthAUnit = vData
End Property


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



Public Property Let WidthA(ByVal vData As Long)
Attribute WidthA.VB_Description = "行末不可见单元格宽度。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WidthA = 5
    mvarWidthA = vData
End Property


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



Public Property Let WidthBUnit(ByVal vData As CellLengthUnitEnum)
Attribute WidthBUnit.VB_Description = "行前不可见单元格宽度单位，1～3。默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WidthBUnit = 5
    mvarWidthBUnit = vData
End Property


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



Public Property Let WidthB(ByVal vData As Long)
Attribute WidthB.VB_Description = "行前不可见单元格宽度。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WidthB = 5
    mvarWidthB = vData
End Property


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



Public Property Let WidthUnit(ByVal vData As CellLengthUnitEnum)
Attribute WidthUnit.VB_Description = "默认行宽单位，1～3，默认：0"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.WidthUnit = 5
    mvarWidthUnit = vData
End Property


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



Public Property Let Width(ByVal vData As Long)
Attribute Width.VB_Description = "默认行宽。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Width = 5
    mvarWidth = vData
End Property


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



Public Property Let CellSpace(ByVal vData As Long)
Attribute CellSpace.VB_Description = "单元格间距。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CellSpace = 5
    mvarCellSpace = vData
End Property


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



Public Property Let IsLastRow(ByVal vData As Boolean)
Attribute IsLastRow.VB_Description = "是否是最末一行。默认：False"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.IsLastRow = 5
    mvarIsLastRow = vData
End Property


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



Public Property Let RowBand(ByVal vData As Long)
Attribute RowBand.VB_Description = "行数，参考标题行。标题行为-1"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.RowBand = 5
    mvarRowBand = vData
End Property


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



Public Property Let Row(ByVal vData As Long)
Attribute Row.VB_Description = "当前行值。"
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Row = 5
    mvarRow = vData
End Property


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

Private Sub Class_Initialize()
    Set mvarCells = New cRTFCells
End Sub

Private Sub Class_Terminate()
    Set mvarCells = Nothing
End Sub