Opet dogadjaji i delegati...

[ arsa x @ 22.08.2003. 22:37 ] @

Opet mi se desava slicna situacija da nemogu da pokrenem funkciju u glavnoj gormi iz clase koju instanciram u nju.
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

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

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....