home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Complete_W1770747172004.psc / WISPA / dllsrc / CIP4Collection.cls < prev    next >
Text File  |  2004-04-16  |  3KB  |  81 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CIP4Collection"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. ' *************************************************************************************************
  15. ' Copyright (C) Chris Waddell
  16. '
  17. ' This program is free software; you can redistribute it and/or modify
  18. ' it under the terms of the GNU General Public License as published by
  19. ' the Free Software Foundation; either version 2, or (at your option)
  20. ' any later version.
  21. '
  22. ' This program is distributed in the hope that it will be useful,
  23. ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  24. ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25. ' GNU General Public License for more details.
  26. '
  27. ' You should have received a copy of the GNU General Public License
  28. ' along with this program; if not, write to the Free Software
  29. ' Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  30. '
  31. ' Please consult the LICENSE.txt file included with this project for
  32. ' more details
  33. '
  34. ' *************************************************************************************************
  35. Option Explicit
  36.  
  37.  
  38. ' *************************************************************************************************
  39. ' Raised whenever an error occurs.
  40. ' *************************************************************************************************
  41. Public Event OnError(Exception As CWinsockException)
  42.  
  43.  
  44. ' A collection of protocols
  45. Private m_colIPs As Collection
  46.  
  47.  
  48. ' *************************************************************************************************
  49. ' Add a new item
  50. ' *************************************************************************************************
  51. Public Sub Add(NewItem As CIP4Address)
  52.     m_colIPs.Add NewItem
  53. End Sub
  54.  
  55.  
  56. ' *************************************************************************************************
  57. ' Get an individual protocol item.
  58. ' *************************************************************************************************
  59. Public Property Get Item(Index As Variant) As CIP4Address
  60.     Set Item = m_colIPs(Index)
  61. End Property
  62.  
  63.  
  64. ' *************************************************************************************************
  65. ' Get the protocol count.
  66. ' *************************************************************************************************
  67. Public Property Get Count() As Long
  68.     Count = m_colIPs.Count
  69. End Property
  70.  
  71.  
  72. Private Sub Class_Initialize()
  73.     Set m_colIPs = New Collection
  74. End Sub
  75.  
  76.  
  77. Private Sub Class_Terminate()
  78.     Set m_colIPs = Nothing
  79. End Sub
  80.  
  81.