How to implement For Each Loop in Collection

[sameers]

Is there anyone who can give me a sample of implementing For Each Loop on
User created Collection?

Thanks

Sameers
Sameers@theangrycoder.com

[Paul Clement]

On 18 Dec 2001 21:25:12 GMT, "sameers" <sameers@theangrycoder.com> wrote:

¤
¤ Is there anyone who can give me a sample of implementing For Each Loop on
¤ User created Collection?
¤

Relatively simply example:

Dim col As New Collection
Dim vItem As Variant

col.Add "Test"
col.Add "Another Test"
col.Add "Yet Another Test"

For Each vItem In col
Debug.Print vItem
Next

Set col = Nothing


Paul ~~~ pclement@ameritech.net
Microsoft MVP (Visual Basic)

[Raghu]

Hi Sameer,
You need to implement a Public Function in your Collection Class like as
below
________
' NewEnum must return the IUnknown interface of a
' collection's enumerator.
Public Function NewEnum() As IUnknown
Set NewEnum = m_colObjects.[_NewEnum]
End Function
___________
where m_colObjects is your private collection class object declared as
___________
Private m_colObjects as Collection
___________
And hide the NewEnum method and give it a procedure ID -4
To do that, go to Tools menu, click Procedure Attributes to open the Procedure
Attributes dialog box. In Name box, select the NewEnum method.

Click Advanced to show the advanced features. Check Hide this member to make
NewEnum hidden in the type library.

In the Procedure ID box, type –4 (minus four) to give NewEnum the procedure
ID required by For Each ... Next. Click OK.

Now you collection class will be capable of providing For Each ... Next
functionality.

HTH,
Raghu.



Paul Clement <UseAdddressAtEndofMessage@swspectrum.com> wrote:
>On 18 Dec 2001 21:25:12 GMT, "sameers" <sameers@theangrycoder.com> wrote:
>
>¤
>¤ Is there anyone who can give me a sample of implementing For Each Loop
on
>¤ User created Collection?
>¤
>
>Relatively simply example:
>
>Dim col As New Collection
>Dim vItem As Variant
>
>col.Add "Test"
>col.Add "Another Test"
>col.Add "Yet Another Test"
>
>For Each vItem In col
> Debug.Print vItem
>Next
>
>Set col = Nothing
>
>
>Paul ~~~ pclement@ameritech.net
>Microsoft MVP (Visual Basic)