unable to receive .NET event in VB6

[Marek Murin]

Hi all,

I have created vb.net user control that has to be used by vb6 form.
Everything goes well with putting the vb.net user control on the VB6 form
until I want to receive any event from my control. The event handler is
displayed on VB6 IDE combo and you can create a sub for it as usual, but when
I run the vb6 form to test it, it won't work.

I have spent too much time til now with that without finding solution.
Can anybody help me ?

Thanks a lot,

Marek
in**@mmsoftdev. sk

The codes are as follows:

-----------------------------------------------------------
VB.NET user control
-----------------------------------------------------------

Imports System.Runtime. InteropServices
Imports System.Text
Imports Microsoft.Win32
Imports System.Reflecti on

Public Delegate Sub ButtonPressedDe legate()

' Step 1: Defines an event sink interface (ButtonEvents) to be
' implemented by the COM sink.
<GuidAttribute( "1c646f53-ce4e-4bb6-8a67-f94a13172431"), _
InterfaceTypeAt tribute(ComInte rfaceType.Inter faceIsIDispatch )> _
Public Interface IButtonEvents
Sub ButtonPressed()
End Interface

<Guid("f1bc2b 4d-9844-469d-849c-cfe7f456b989"), _
ComSourceInterf aces("vbNetClar ifyTest.IButton Events, vbNetClarifyTes t")> _
Public Class TestButton

'#Region "COM GUIDs"
' ' These GUIDs provide the COM identity for this class
' ' and its COM interfaces. If you change them, existing
' ' clients will no longer be able to access the class.
' Public Const InterfaceId As String =
"e32ccb34-07c6-4db3-aa0f-1e5b364d513c"
' Public Const EventsId As String = ""
'#End Region

Public Event ButtonPressed As ButtonPressedDe legate

' A creatable COM class must have a Public Sub New()
' with no parameters, otherwise, the class will not be
' registered in the COM registry and cannot be created
' via CreateObject.
Public Sub New()
MyBase.New()
Call InitializeCompo nent()
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
RaiseEvent ButtonPressed()
End Sub

<ComRegisterFun ction()> _
Private Shared Sub ComRegister(ByV al t As Type)

Dim keyName As String = "CLSID\" & t.GUID.ToString ("B")
Dim key As RegistryKey = Registry.Classe sRoot.OpenSubKe y(keyName,
True)
key.CreateSubKe y("Control").Cl ose()
Dim subkey As RegistryKey = key.CreateSubKe y("MiscStatus ")
subkey.SetValue ("", "131457")
subkey = key.CreateSubKe y("TypeLib")
Dim libid As Guid = Marshal.GetType LibGuidForAssem bly(t.Assembly)
subkey.SetValue ("", libid.ToString( "B"))
subkey = key.CreateSubKe y("Version")
Dim ver As Version = t.Assembly.GetN ame().Version
Dim version As String = String.Format(" {0}.{1}", ver.Major, ver.Minor)
If version = "0.0" Then version = "1.0"
subkey.SetValue ("", version)

End Sub

' This is called when unregistering
<ComUnregisterF unction()> _
Private Shared Sub ComUnregister(B yVal t As Type)
' Delete entire CLSID\{clsid} subtree
Dim keyName As String = "CLSID\" + t.GUID.ToString ("B")
Registry.Classe sRoot.DeleteSub KeyTree(keyName )
End Sub

End Class
-----------------------------------------------------------
VB6 FORM
-----------------------------------------------------------
Private Sub TestButton1_But tonPressed()
MsgBox "test"
End Sub

[Marek Murin]

Hi all,

as I can see no reply to my question after several day.
Beside waiting for any reply I have searched for solution.
And I found one. It is a dirty solution but works,and actualy it is a Java
style solution.

Solution is as follows:

Create one interface with method you vant to use as event for exmple like
this:

Imports System.Runtime. InteropServices
Imports EventInfoSuppor t

<ComVisible(Tru e)> _
Public Interface ICICCoreEventsL istener
<ComVisible(Tru e)> _
Sub ExtendedObjectE vent(ByVal info As EventInfoObject )
End Interface

Then in your user control that will fire an event add two methods and
declare one variable as ArrayList. Variable will hold an listeners that are
listening for method call and metioned methods are used for adding and
removing listeners from the list of listeners.

Private mlisteners As New ArrayList

<ComVisible(Tru e)> _
Public ReadOnly Property Listeners() As ArrayList
Get
Return mlisteners
End Get
End Property

<ComVisible(Tru e)> _
Public Sub AddEventListene r(ByVal listen As ICICCoreEventsL istener)
If listen Is Nothing Then
Return
End If
If (Not Listeners.Conta ins(listen)) Then
Call Listeners.Add(l isten)
End If
End Sub

<ComVisible(Tru e)> _
Public Sub RemoveEventList ener(ByVal listen As ICICCoreEventsL istener)
If listen Is Nothing Then Return
If (Listeners.Cont ains(listen)) Then
Call Listeners.Remov e(listen)
End If
End Sub

After that on place when you want to fire an event add following:

For Each l As ICICCoreEventsL istener In Listeners
If Not l Is Nothing Then
l.ExtendedObjec tEvent(info)
End If
Next

So this is an VB.NET 2003/5 side. Now here is the VB6 side:

Implements ICICCoreEventsL istener

Private Sub ICICCoreEventsL istener_Extende dObjectEvent(By Val info As
EventInfoSuppor t.EventInfoObje ct)
' do something here after catching of our pseudo event
End Sub

So this is my solution that worked fine also with combination of ClarifyCRM
screen - VB6 control - VB.NET control. There are limitations on CrarifyCRM
side of version 10, that forced me to use VB6 control between Clarify screen
and VB.NET user control.

The class EventInfoSuppor t.EventInfoObje ct is own implementation of
EventInfo class because the VBExtender EventInfo object is not more supported
in .NET and is is not the same as System.Refrecti on.EventInfo object. So I
had to make such own implementation to be compatible with VB6 and VB.NET.

I am not so much satisfied with this forum because of answering speed and MS
itself because of backward compatibility support for events. There is problem
with events also on C# side as well.

Hope it will helps to others too. In case of additional question write me an
email to in**@mmsoftdev. sk.

Bye,

Marek
"Marek Murin" wrote:

Hi all,

I have created vb.net user control that has to be used by vb6 form.
Everything goes well with putting the vb.net user control on the VB6 form
until I want to receive any event from my control. The event handler is
displayed on VB6 IDE combo and you can create a sub for it as usual, but when
I run the vb6 form to test it, it won't work.

I have spent too much time til now with that without finding solution.
Can anybody help me ?

Thanks a lot,

Marek
in**@mmsoftdev. sk

The codes are as follows:

-----------------------------------------------------------
VB.NET user control
-----------------------------------------------------------

Imports System.Runtime. InteropServices
Imports System.Text
Imports Microsoft.Win32
Imports System.Reflecti on

Public Delegate Sub ButtonPressedDe legate()

' Step 1: Defines an event sink interface (ButtonEvents) to be
' implemented by the COM sink.
<GuidAttribute( "1c646f53-ce4e-4bb6-8a67-f94a13172431"), _
InterfaceTypeAt tribute(ComInte rfaceType.Inter faceIsIDispatch )> _
Public Interface IButtonEvents
Sub ButtonPressed()
End Interface

<Guid("f1bc2b 4d-9844-469d-849c-cfe7f456b989"), _
ComSourceInterf aces("vbNetClar ifyTest.IButton Events, vbNetClarifyTes t")> _
Public Class TestButton

'#Region "COM GUIDs"
' ' These GUIDs provide the COM identity for this class
' ' and its COM interfaces. If you change them, existing
' ' clients will no longer be able to access the class.
' Public Const InterfaceId As String =
"e32ccb34-07c6-4db3-aa0f-1e5b364d513c"
' Public Const EventsId As String = ""
'#End Region

Public Event ButtonPressed As ButtonPressedDe legate

' A creatable COM class must have a Public Sub New()
' with no parameters, otherwise, the class will not be
' registered in the COM registry and cannot be created
' via CreateObject.
Public Sub New()
MyBase.New()
Call InitializeCompo nent()
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
RaiseEvent ButtonPressed()
End Sub

<ComRegisterFun ction()> _
Private Shared Sub ComRegister(ByV al t As Type)

Dim keyName As String = "CLSID\" & t.GUID.ToString ("B")
Dim key As RegistryKey = Registry.Classe sRoot.OpenSubKe y(keyName,
True)
key.CreateSubKe y("Control").Cl ose()
Dim subkey As RegistryKey = key.CreateSubKe y("MiscStatus ")
subkey.SetValue ("", "131457")
subkey = key.CreateSubKe y("TypeLib")
Dim libid As Guid = Marshal.GetType LibGuidForAssem bly(t.Assembly)
subkey.SetValue ("", libid.ToString( "B"))
subkey = key.CreateSubKe y("Version")
Dim ver As Version = t.Assembly.GetN ame().Version
Dim version As String = String.Format(" {0}.{1}", ver.Major, ver.Minor)
If version = "0.0" Then version = "1.0"
subkey.SetValue ("", version)

End Sub

' This is called when unregistering
<ComUnregisterF unction()> _
Private Shared Sub ComUnregister(B yVal t As Type)
' Delete entire CLSID\{clsid} subtree
Dim keyName As String = "CLSID\" + t.GUID.ToString ("B")
Registry.Classe sRoot.DeleteSub KeyTree(keyName )
End Sub

End Class
-----------------------------------------------------------
VB6 FORM
-----------------------------------------------------------
Private Sub TestButton1_But tonPressed()
MsgBox "test"
End Sub