home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Final_-_vh207433772007.psc / clsCellHeader.cls < prev    next >
Text File  |  2007-03-30  |  3KB  |  115 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsCellHeader"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15.  
  16.  
  17. Public Enum ECCFrameConnector
  18.     escTopCap = 1&
  19.     escJoined = 2&
  20.     escBottomCap = 3&
  21. End Enum
  22.  
  23.  
  24. Private m_bUseSpannedCell                       As Boolean
  25. Private m_lRowIndex                             As Long
  26. Private m_lCellIndex                            As Long
  27. Private m_lAlignFlag                            As Long
  28. Private m_lFontHandle                           As Long
  29. Private m_lForeColor                            As Long
  30. Private m_lFocusForeColor                       As Long
  31. Private m_lIndent                               As Long
  32. Private m_sText                                 As String
  33. Private m_eFrameConnector                       As ECCFrameConnector
  34.  
  35.  
  36. Public Property Get RowIndex() As Long
  37.     RowIndex = m_lRowIndex
  38. End Property
  39.  
  40. Public Property Let RowIndex(ByVal PropVal As Long)
  41.     m_lRowIndex = PropVal
  42. End Property
  43.  
  44. Public Property Get CellIndex() As Long
  45.     CellIndex = m_lCellIndex
  46. End Property
  47.  
  48. Public Property Let CellIndex(ByVal PropVal As Long)
  49.     m_lCellIndex = PropVal
  50. End Property
  51.  
  52. Public Property Get Indent() As Long
  53.     Indent = m_lIndent
  54. End Property
  55.  
  56. Public Property Let Indent(ByVal PropVal As Long)
  57.     m_lIndent = PropVal
  58. End Property
  59.  
  60. Public Property Get AlignFlag() As Long
  61.     AlignFlag = m_lAlignFlag
  62. End Property
  63.  
  64. Public Property Let AlignFlag(ByVal PropVal As Long)
  65.     m_lAlignFlag = PropVal
  66. End Property
  67.  
  68. Public Property Get FontHandle() As Long
  69.     FontHandle = m_lFontHandle
  70. End Property
  71.  
  72. Public Property Let FontHandle(ByVal PropVal As Long)
  73.     m_lFontHandle = PropVal
  74. End Property
  75.  
  76. Public Property Get ForeColor() As Long
  77.     ForeColor = m_lForeColor
  78. End Property
  79.  
  80. Public Property Let ForeColor(ByVal PropVal As Long)
  81.     m_lForeColor = PropVal
  82. End Property
  83.  
  84. Public Property Get FocusForeColor() As Long
  85.     FocusForeColor = m_lFocusForeColor
  86. End Property
  87.  
  88. Public Property Let FocusForeColor(ByVal PropVal As Long)
  89.     m_lFocusForeColor = PropVal
  90. End Property
  91.  
  92. Public Property Get UseSpannedCell() As Boolean
  93.     UseSpannedCell = m_bUseSpannedCell
  94. End Property
  95.  
  96. Public Property Let UseSpannedCell(ByVal PropVal As Boolean)
  97.     m_bUseSpannedCell = PropVal
  98. End Property
  99.  
  100. Public Property Get Text() As String
  101.     Text = m_sText
  102. End Property
  103.  
  104. Public Property Let Text(ByVal PropVal As String)
  105.     m_sText = PropVal
  106. End Property
  107.  
  108. Public Property Get FrameConnector() As ECCFrameConnector
  109.     FrameConnector = m_eFrameConnector
  110. End Property
  111.  
  112. Public Property Let FrameConnector(ByVal PropVal As ECCFrameConnector)
  113.     m_eFrameConnector = PropVal
  114. End Property
  115.