home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Basic / GridOne / setup.EXE / CVERMENUS.CLS < prev    next >
Encoding:
Visual Basic class definition  |  2001-09-09  |  2.3 KB  |  87 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 = "CVerMenus"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  16. Attribute VB_Ext_KEY = "Collection" ,"CVerMenu"
  17. Attribute VB_Ext_KEY = "Member0" ,"CVerMenu"
  18. '-----------------------------------------------------------------------------
  19. ' This is a part of the BeeGrid ActiveX control.
  20. ' Copyright ⌐ 2000 Stinga
  21. ' All rights reserved.
  22. '
  23. ' You have a right to use and distribute the BeeGrid sample files in original
  24. ' form or modified, provided that you agree that Stinga has no warranty,
  25. ' obligations, or liability for any sample application files.
  26. '-----------------------------------------------------------------------------
  27. Option Explicit
  28.  
  29. Private mCol As Collection
  30.  
  31. Public Function Add(Caption As String, Optional sKey As String) As CVerMenu
  32.    'create a new object
  33.    Dim objNewMember As CVerMenu
  34.    Set objNewMember = New CVerMenu
  35.  
  36.    objNewMember.Caption = Caption
  37.    objNewMember.Index = mCol.Count + 1
  38.    
  39.    If Len(sKey) = 0 Then
  40.        mCol.Add objNewMember
  41.    Else
  42.        mCol.Add objNewMember, sKey
  43.    End If
  44.  
  45.    'return the object created
  46.    Set Add = objNewMember
  47.    Set objNewMember = Nothing
  48. End Function
  49.  
  50. Public Property Get Item(vntIndexKey As Variant) As CVerMenu
  51. Attribute Item.VB_UserMemId = 0
  52.   Set Item = mCol(vntIndexKey)
  53. End Property
  54.  
  55.  
  56.  
  57. Public Property Get Count() As Long
  58.     Count = mCol.Count
  59. End Property
  60.  
  61.  
  62. Public Sub Remove(vntIndexKey As Variant)
  63.     mCol.Remove vntIndexKey
  64. End Sub
  65.  
  66.  
  67. Public Property Get NewEnum() As IUnknown
  68. Attribute NewEnum.VB_UserMemId = -4
  69. Attribute NewEnum.VB_MemberFlags = "40"
  70.     'this property allows you to enumerate
  71.     'this collection with the For...Each syntax
  72.     Set NewEnum = mCol.[_NewEnum]
  73. End Property
  74.  
  75.  
  76. Private Sub Class_Initialize()
  77.     'creates the collection when this class is created
  78.     Set mCol = New Collection
  79. End Sub
  80.  
  81.  
  82. Private Sub Class_Terminate()
  83.     'destroys collection when this class is terminated
  84.     Set mCol = Nothing
  85. End Sub
  86.  
  87.