devxlogo

Support Enumeration in Your Collection Classes

Support Enumeration in Your Collection Classes

To create a collection class you can use with the For Each…Next syntax, add a subroutine that looks like this:

 Private myCollection As CollectionPublic Property Get NewEnum() As IUnknown	Set NewEnum = myCollection.[_NewEnum]End Property

Click on the Tools menu and select Procedure Attributes. Select the NewEnum procedure from the combo box. Click on the “Advanced >>” button. In the ProcedureID field, enter the value -4. Check the “Hide this member” checkbox. Now you can use the For Each…Next syntax with your collection class in the same way as a standard collection.

devx-admin

Share the Post: