home *** CD-ROM | disk | FTP | other *** search
Visual Basic class definition | 2000-02-21 | 1.1 KB | 49 lines |
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- END
- Attribute VB_Name = "clsItemCol"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- Option Explicit
-
- Dim m_Col As New Collection
- Public Function Add(ByVal FieldName As String, ByVal LineNumber As Long) As clsItemEl
-
- Dim NewEl As New clsItemEl
-
- NewEl.FieldName = FieldName
- NewEl.LineNumber = LineNumber
- Call m_Col.Add(NewEl)
- Set Add = NewEl
- Set NewEl = Nothing
-
- End Function
- Public Sub Clear()
-
- Dim i As Integer
-
- For i = 1 To Count
- Remove 1
- Next i
-
- End Sub
- Public Function Count() As Integer
- Count = m_Col.Count
- End Function
- Public Function Item(ByVal Index As Variant) As clsItemEl
- Attribute Item.VB_UserMemId = 0
- If IsNumeric(Index) Then Index = CLng(Index)
- Set Item = m_Col(Index)
- End Function
- Public Sub Remove(ByVal Index As Variant)
- If IsNumeric(Index) Then Index = CLng(Index)
- Call m_Col.Remove(Index)
- End Sub
- Private Sub Class_Terminate()
- Clear
- Set m_Col = Nothing
- End Sub
-