I need an array of WithEvents Classes...

[Terry Olsen]

I want to have an array of class objects that raise an event when a
condition is true. Like so...
-------------------------------------------------------
Public Class ClientHandler

Public Event DataArrival(ByVal client As TcpClient)
Public Writer As BinaryWriter
Public Reader As BinaryReader
Private myClient As TcpClient

Public Sub New(ByVal client As TcpClient)
myClient = client
Dim Stream As NetworkStream = client.GetStream
Writer = New BinaryWriter(Stream)
Reader = New BinaryReader(Stream)
'Add code here to start a DataArrivalLoop Thread...
End Sub

Private Sub DataArrivalLoop()
Do
If Reader.PeekChar > 0 Then
RaiseEvent DataArrival(myClient)
End If
Loop
End Sub

End Class
--------------------------------------------------------------

Back in the main form code...

Dim WithEvents myClient(10) As ClientHandler '<--Gives an error that says
can't have an array of WithEvents variables.

I want to be able to have up to 10 clients connected and have a single event
handler like this:

Private Sub DataArrival(ByVal client As TcpClient) Handles
ClientHandler.DataArrival
'Do stuff to handle the event...
End Sub

Is this possible? How can I accomplish something like this?

 

[Scott Swigart]

You have to programatically wire up the events.

Dim myClient(10) as ClientHandler
for each client as ClientHandler in myClient
AddHandler client, AddressOf DataHandler
next

- Scott Swigart
http://blog.swigartconsulting.com

 

[Terry Olsen]

So doing it this way...you don't need the WithEvents in the declaration?

 

[Herfried K. Wagner [MVP]]

So doing it this way...you don't need the WithEvents in the declaration?

Sure, you don't need it.