home *** CD-ROM | disk | FTP | other *** search
Visual Basic class definition | 2000-02-21 | 746 b | 31 lines |
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- END
- Attribute VB_Name = "clsItemEl"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- Option Explicit
-
- Dim m_FieldName As String
- Dim m_LineNumber As Long
-
- Public Fields As New clsFieldCol
- Public Property Get FieldName() As String
- FieldName = m_FieldName
- End Property
- Public Property Let FieldName(ByVal Value As String)
- m_FieldName = Value
- End Property
- Public Property Get LineNumber() As Long
- LineNumber = m_LineNumber
- End Property
- Public Property Let LineNumber(ByVal Value As Long)
- m_LineNumber = Value
- End Property
- Private Sub Class_Terminate()
- Set Fields = Nothing
- End Sub
-