home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Flexible_P20903811112007.psc / clsGrid.cls < prev    next >
Text File  |  2002-01-21  |  867b  |  37 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 = "clsGrid"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Public oColNames  As New Collection
  17. Public colCount As Integer
  18.  
  19. Private m_strColName As String
  20. '
  21.  
  22. Sub AddCol()
  23.   oColNames.Add colName
  24.   colCount = oColNames.Count
  25. End Sub
  26. Public Property Get colName() As String
  27.   colName = m_strColName
  28. End Property
  29.  
  30. Public Property Let colName(ByVal sNewValue As String)
  31.   m_strColName = sNewValue
  32. End Property
  33.  
  34. Sub WriteCols()
  35.   
  36. End Sub
  37.