clslabelattributes.cls

This application provides much functionality for creating data-driven reports, including preview, gr

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLabelAttributes"
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 Caption As String

Public ForeColor As Long
Public FontName As String
Public FontSize As Single
Public FontBold As Boolean
Public FontItalic As Boolean
Public FontUnderline As Boolean
Public FontStrikethru As Boolean

Public PositionIsAbsolute As Boolean
Public Left As Single
Public Top As Single
Public Bottom As Single
Public Right As Single
Public CellSpacing As Single
Public WordWrap As Boolean

Public FillStyle As FillStyleConstants
Public FillColor As Long
Public BorderColor As Long
Public BorderWidth As Integer
Public Align As TextAlignConstants

Public Tag As String


Private Sub Class_Initialize()
    FillColor = vbBlack
    FillStyle = vbFSTransparent
    ForeColor = vbBlack
    FontName = defFontName
    FontSize = defFontSize
    BorderColor = vbBlack
    CellSpacing = 0
End Sub