Multiple Event-Raising Classes 1

[Norris68]

I have a class that raises a StateChanged event. It is working fine as a single instance. I would like to have a number of instances of this class and be able to handle the events raised - for instance an array of classes that I could extend (i.e. ReDim). However, as the error message says "'WithEvents' variables cannot be typed as arrays".

Is there any way I can have a dynamic number of instances of this class, or will have to declare the maximum number I think will be used individually?

 

[Craig0201]

What about using a Collection class as a holder?

Craig

 

[Norris68]

Thanks Craig, but I still don't see how I could have an arbitary number of instances while still getting the events, even if I used a collection class. What I would really like to do is:

Private WithEvents MyObjects() As MyObjectType

Private Sub MyObjects_StateChanged(ByVal NewState As MyObjectType.State) Handles MyObjects().StateChanged
End Sub

 

[Craig0201]

The collection class could handle the events?

Craig

 

[JohnYingling]

You will need to use AddHandler to add each event to each newly create object. WithEvents is a compile-time artifice.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Norris68]

Thanks John - that sounds more like it. I'll have a play later.

 

[Norris68]

Works a treat - thanks a lot John! If I could give you more than one star I would...