VB.Net, COM Interop and User-defined events

[honeybee]

Hi all,

We need to develop a COM component in VB.Net for use in COM client applications. We developed a sample COM Interop component in VB.Net and tried to use it in VB. The sample component has a Message property, a DisplayText method and an OnMessageDisplay event. Things work smoothly for the property assignment and method invocation. However when it comes to handling the OnMessageDisplay event, I can't seem to find how I can handle it.

Here's the code in VB6:

Option Explicit

Dim myObj As TestInterop.TestInterop
Dim myEvent As OnMessageDisplayEventHandler

Private Sub Form_Click()
   myObj.Message = "Hello Anand"
   myObj.DisplayText
End Sub

Private Sub Form_Load()
   Set myObj = New TestInterop.TestInterop
   myevent.
   myObj.add_OnMessageDisplay myEvent
End Sub

Private Sub OnMessageDisplay()
   MsgBox ("Event handler invoked")
End Sub

For a true COM component I could simply have used WithEvents myObj and the job would be done. However here I am stuck as to how I can specify the OnMessageDisplay() procedure as the event handler for the OnMessageDisplay event. Can someone help me out with this?

.

[Asgorath]

Hi
I would use delegates.
Regards
Jorge

[honeybee]

Thanks for the reply, Asgorath?

I found this link that helps with the problem I faced:

http://www.devcity.net/net/article.aspx?alias=20020328


After creating the interface, the event sink now works and I can use the object with WithEvents declaration like normal COM objects

.