clstableattributes.cls

来自「This application provides much functiona」· CLS 代码 · 共 78 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsTableAttributes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Public TextArray As Variant

Public FirstRowIsTitle As Boolean

Public Left As Single
Public Top As Single
Public PositionIsAbsolute As Boolean

Public TitleHeight As Single
Public TitleForeColor As Long
Public TitleFontName As String
Public TitleFontSize As Single
Public TitleFontBold As Boolean
Public TitleFontItalic As Boolean
Public TitleFontUnderline As Boolean
Public TitleFontStrikethru As Boolean
Public TitleWordWrap As Boolean

Public BodyHeight As Single
Public BodyForeColor As Long
Public BodyFontName As String
Public BodyFontSize As Single
Public BodyFontBold As Boolean
Public BodyFontItalic As Boolean
Public BodyFontUnderline As Boolean
Public BodyFontStrikethru As Boolean
Public BodyWordWrap As Boolean

Public TotalColumns As Integer
Public ColumnSpacing As Single
Public CellSpacing As Single
Public BorderWidth As Integer
Public BorderColor As Long

Public Columns As clsColumns

Public Tag As String


Private Sub Class_Initialize()
    TitleForeColor = vbBlack
    TitleFontName = defFontName
    TitleFontSize = defFontSize
    BodyForeColor = vbBlack
    BodyFontName = defFontName
    BodyFontSize = defFontSize
    
    TitleFontBold = True
    BorderColor = vbBlack
    TotalColumns = 1
    FirstRowIsTitle = True
    TitleHeight = 7
    BodyHeight = 5.5
    Set Columns = New clsColumns
End Sub

Private Sub Class_Terminate()
    Columns.Clear
    Set Columns = Nothing
End Sub