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

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsItemCol"
  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_Col As New Collection
  13. Public Function Add(ByVal FieldName As String, ByVal LineNumber As Long) As clsItemEl
  14.  
  15. Dim NewEl As New clsItemEl
  16.   
  17.   NewEl.FieldName = FieldName
  18.   NewEl.LineNumber = LineNumber
  19.   Call m_Col.Add(NewEl)
  20.   Set Add = NewEl
  21.   Set NewEl = Nothing
  22.  
  23. End Function
  24. Public Sub Clear()
  25.  
  26. Dim i As Integer
  27.  
  28.   For i = 1 To Count
  29.     Remove 1
  30.   Next i
  31.  
  32. End Sub
  33. Public Function Count() As Integer
  34.   Count = m_Col.Count
  35. End Function
  36. Public Function Item(ByVal Index As Variant) As clsItemEl
  37. Attribute Item.VB_UserMemId = 0
  38.   If IsNumeric(Index) Then Index = CLng(Index)
  39.   Set Item = m_Col(Index)
  40. End Function
  41. Public Sub Remove(ByVal Index As Variant)
  42.   If IsNumeric(Index) Then Index = CLng(Index)
  43.   Call m_Col.Remove(Index)
  44. End Sub
  45. Private Sub Class_Terminate()
  46.   Clear
  47.   Set m_Col = Nothing
  48. End Sub
  49.