home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Remote_Des21926411122010.psc / RemoteDesktop / class / clsUsers.cls < prev    next >
Text File  |  2010-11-12  |  2KB  |  88 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 = "clsUsers"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '<CSCC>
  15. '--------------------------------------------------------------------------------
  16. '    Component  : clsUsers
  17. '    Project    : NetRemote
  18. '    Author     : B2qid www.labsoft.web.id
  19. '    Description: {ParamList}
  20. '
  21. '    Modified   : 11/12/2010 2:52:18 PM
  22. '--------------------------------------------------------------------------------
  23. '</CSCC>
  24. ' The private collection object
  25. Private m_ColclsUsers As Collection
  26.  
  27.  
  28. Private Sub Class_Initialize()
  29.  
  30.     Set m_ColclsUsers = New Collection
  31.  
  32. End Sub
  33.  
  34.  
  35. ' This sub adds a new clsUser item to the collection.
  36. Sub Add(ClsItem As clsUser, Optional VarKey As Variant)
  37.  
  38.     'TODO: Initialize the new clsUser item's properties here
  39.  
  40.     m_ColclsUsers.Add ClsItem, VarKey
  41.  
  42. End Sub
  43.  
  44.  
  45. ' This sub remove an item from the collection.
  46. Sub Remove(VarIndex As Variant)
  47.  
  48.     m_ColclsUsers.Remove VarIndex
  49.  
  50. End Sub
  51.  
  52.  
  53. ' This function returns a clsUser item from the collection. It's the default method.
  54. Function Item(VarIndex As Variant) As clsUser
  55. Attribute Item.VB_UserMemId = 0
  56.  
  57.     Set Item = m_ColclsUsers.Item(VarIndex)
  58.  
  59. End Function
  60.  
  61.  
  62. ' This property returns the number of items in the collection.
  63. Property Get Count() As Long
  64.  
  65.     Count = m_ColclsUsers.Count
  66.  
  67. End Property
  68.  
  69.  
  70. ' This sub remove all items from the collection.
  71. Sub Clear()
  72.  
  73.     Set m_ColclsUsers = New Collection
  74.  
  75. End Sub
  76.  
  77.  
  78. ' This function adds "For Each" enumeration support. Must have a -4 DispID.
  79. Function NewEnum() As IUnknown
  80. Attribute NewEnum.VB_UserMemId = -4
  81.  
  82.     Set NewEnum = m_ColclsUsers.[_NewEnum]
  83.  
  84. End Function
  85.  
  86.  
  87.  
  88.