Please can someone help me with this. I have an assembly that I have written in VB.NET and using in Access 2003. The problem I am having is getting the Private WithEvents to work in Access.
Heres the code I have in VB.NET
-------------------------------------------------------------
Imports System
Imports System.Runtime.InteropServices
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)>_
PublicInterface IMyInterface
Property GreetingName() AsString
Sub ShowGreeting()
EndInterface
<ComSourceInterfaces(GetType(IMyInterface))>_
PublicClass NETTest
PublicEvent NameChanged As NameChangedHandler
Dim lgNameStr AsString
PublicProperty GreetingName() AsString
Get
GreetingName = lgNameStr
EndGet
Set(ByVal Value AsString)
lgNameStr = Value
RaiseEvent NameChanged(lgNameStr)
EndSet
EndProperty
PublicSub ShowGreeting()
MsgBox("Hello " & lgNameStr)
EndSub
EndClass
-----------------------------------------------------------------
In Access 2003 when I put 'Private WithEvents NewName As' it can't find anything to do with the above class.
Is there something I am missing?
Thanks in advance
Heres the code I have in VB.NET
-------------------------------------------------------------
Imports System
Imports System.Runtime.InteropServices
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)>_
PublicInterface IMyInterface
Property GreetingName() AsString
Sub ShowGreeting()
EndInterface
<ComSourceInterfaces(GetType(IMyInterface))>_
PublicClass NETTest
PublicEvent NameChanged As NameChangedHandler
Dim lgNameStr AsString
PublicProperty GreetingName() AsString
Get
GreetingName = lgNameStr
EndGet
Set(ByVal Value AsString)
lgNameStr = Value
RaiseEvent NameChanged(lgNameStr)
EndSet
EndProperty
PublicSub ShowGreeting()
MsgBox("Hello " & lgNameStr)
EndSub
EndClass
-----------------------------------------------------------------
In Access 2003 when I put 'Private WithEvents NewName As' it can't find anything to do with the above class.
Is there something I am missing?
Thanks in advance