Pokusao sam ....
U glavnoj formi(Form1) imam sledece
Code:
Class Form1
...
Dim arrClients As ArrayList = New ArrayList()
...
WithEvents ev As New SocketsUsers()
...
Private Sub Form1_Load.....
..
For Each Netcomp In NetComputersNames
Try
Dim s As SocketsUsers
s = New SocketsUsers()
s.socket.Connect(Netcomp, 1000)
arrClients.Add(s)
Catch
End Try
Next
..
End Sub
....
Public Sub UpdateChat(ByVal Header As String, ByVal Msg As String) Handles ev.porukastigla
....
End Sub
Class Form1
...
Dim arrClients As ArrayList = New ArrayList()
...
WithEvents ev As New SocketsUsers()
...
Private Sub Form1_Load.....
..
For Each Netcomp In NetComputersNames
Try
Dim s As SocketsUsers
s = New SocketsUsers()
s.socket.Connect(Netcomp, 1000)
arrClients.Add(s)
Catch
End Try
Next
..
End Sub
....
Public Sub UpdateChat(ByVal Header As String, ByVal Msg As String) Handles ev.porukastigla
....
End Sub
A u klasi SocketsUsers
Code:
Class SocketsUsers
...
Public Event porukastigla(ByVal h As String, ByVal m As String)
...
Private Sub socket_DataArrival(ByVal sender As Object, ByVal e As System.EventArgs) Handles socket.DataArrival
...
RaiseEvent porukastigla(strHeader, strMessage)
...
End sub
Class SocketsUsers
...
Public Event porukastigla(ByVal h As String, ByVal m As String)
...
Private Sub socket_DataArrival(ByVal sender As Object, ByVal e As System.EventArgs) Handles socket.DataArrival
...
RaiseEvent porukastigla(strHeader, strMessage)
...
End sub
Ovo neradi. Kada stavim breakpoint na
{RaiseEvent porukastigla(strHeader, strMessage)}
i pritiskam pley neprelazi na UpdateChat - funkciju
Nadam se da sam jasan i da nisam dosadan....
Aj sad odo