Classes and muliple event handlers

[Rick H]

I am trying raise a single event but have multiple event handlers for that event.

I have a serial bus which I want to monitor continually (polling) when a packet arrives I want to raise an event that multiple forms can respond to. If the packet is for them they flag this up on the screen.

This is some psedo code of what I have:

Form:

Private withevents handlename as sourceclass

Private sub form_load()
Set handlename as sourceclass
handlename.canread ' start polling
end sub

Private sub handlename_extension ' event handler

label.caption="Packet for me"

endsub


Class: (event source) name=sourceclass

Public event extension()

private sub canread()

wait for packet..
raise event extension
doevents
loop

end sub

The above code works ok except every form has a instance of the class (event source) and I only want one event source running. I have tried varies ways of creating a class outside the form and then refering to it (public withevents) but I cant get it to work.

Any ideas?

Cheers

[Crazy D]

I just did a simple test....

Class module:
(Called Class1)

Event testje()

Public Sub foo()
RaiseEvent testje
End Sub



2 forms, form1 and form2
2 buttons on form1

this is the code in form1:
Public WithEvents test As Class1

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
test.foo
End Sub

Private Sub Form_Load()
Set test = New Class1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set test = Nothing
End Sub

Private Sub test_testje()
MsgBox "test form1"
End Sub


this is the code in form2:
Private WithEvents test As Class1

Private Sub Form_Load()
Set test = Form1.test
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set test = Nothing
End Sub

Private Sub test_testje()
MsgBox "Test form 2"
End Sub



when i press Command2, I first get the msgbox in form1, and right after that, i get the msgbox in form2.

Hope this helps

[Rick H]

Cheers Crazy D, that works a treat