home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / WorldView / worldview.exe / %MAINDIR% / Source / ItemEl.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-02-21  |  746 b   |  31 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsItemEl"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Dim m_FieldName As String
  13. Dim m_LineNumber As Long
  14.  
  15. Public Fields As New clsFieldCol
  16. Public Property Get FieldName() As String
  17.   FieldName = m_FieldName
  18. End Property
  19. Public Property Let FieldName(ByVal Value As String)
  20.   m_FieldName = Value
  21. End Property
  22. Public Property Get LineNumber() As Long
  23.   LineNumber = m_LineNumber
  24. End Property
  25. Public Property Let LineNumber(ByVal Value As Long)
  26.   m_LineNumber = Value
  27. End Property
  28. Private Sub Class_Terminate()
  29.   Set Fields = Nothing
  30. End Sub
  31.