home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / WorldView / worldview.exe / %MAINDIR% / Source / FieldCol.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-02-21  |  1.1 KB  |  51 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsFieldCol"
  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 Name As String, ByVal Trailer As String, ByVal Precision As Integer) As clsFieldEl
  14.  
  15. Dim NewEl As New clsFieldEl
  16.   
  17.   NewEl.Name = Name
  18.   NewEl.Trailer = Trailer
  19.   NewEl.Precision = Precision
  20.   
  21.   Call m_Col.Add(NewEl)
  22.   Set Add = NewEl
  23.   Set NewEl = Nothing
  24.  
  25. End Function
  26. Public Sub Clear()
  27.  
  28. Dim i As Integer
  29.  
  30.   For i = 1 To Count
  31.     Remove 1
  32.   Next i
  33.  
  34. End Sub
  35. Public Function Count() As Integer
  36.   Count = m_Col.Count
  37. End Function
  38. Public Function Item(ByVal Index As Variant) As clsFieldEl
  39. Attribute Item.VB_UserMemId = 0
  40.   If IsNumeric(Index) Then Index = CLng(Index)
  41.   Set Item = m_Col(Index)
  42. End Function
  43. Public Sub Remove(ByVal Index As Variant)
  44.   If IsNumeric(Index) Then Index = CLng(Index)
  45.   Call m_Col.Remove(Index)
  46. End Sub
  47. Private Sub Class_Terminate()
  48.   Clear
  49.   Set m_Col = Nothing
  50. End Sub
  51.