events across vba projects

Is this possible?

I have a core library (vba project, "LibA") that I want to be ignorant of
any consumers. If I set up a separate project ("LibB") that has a reference
set to "LibA", there are times when I may like to make a piece of
information available from LiibB to LibA.

I thought the natural solution would be to set up an event that broadcasts
the need for information in LibA, with and event handler in LibB to provide
it. Doing so compiles, but doesn't seem to work.

TIA,
Eric

Are you talking about receiving standard Excel events (e.g.,
Change, SelectionChange) from another workbook? If so, you need
to use Application level events. See
http://www.cpearson.com/excel/AppEvent.htm for details and
example code.

Or are you talking about custom, user defined events, declared as
Event and triggered by RaiseEvent?

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Eric Fingerhut" <[email protected]> wrote
in message
news:[email protected]...
> Is this possible?
>
> I have a core library (vba project, "LibA") that I want to be
> ignorant of
> any consumers. If I set up a separate project ("LibB") that has
> a reference
> set to "LibA", there are times when I may like to make a piece
> of
> information available from LiibB to LibA.
>
> I thought the natural solution would be to set up an event that
> broadcasts
> the need for information in LibA, with and event handler in
> LibB to provide
> it. Doing so compiles, but doesn't seem to work.
>
> TIA,
> Eric

Thanks for the reply. I'm talking about Custom events, and I must apologize
for accidentally posting this twice. Sample code below:

//////////////////////////////////////////////////////////
Class CMsgEx is a class in LibA with the following custom event raised in a
sample method below:
/////////////////////////////////////////////////////////

' post that we are looking for an application title
Public Event applicationTitleRequest(MsgEx As CMsgEx)

Public Function displayInformation(ByVal aMsg As String) As VbMsgBoxResult
RaiseEvent applicationTitleRequest(Me)
icon = Information
Caption = aMsg
Title = aTitle
displayInformation = show
End Function

/////////////////////////////////////////////////
Class CAppFacade is in LibB, and LibB has a refernce to Lib A
////////////////////////////////////////////////

Public WithEvents m_oMsgEx As LibA.CMsgEx

Private Sub m_oMsgEx_applicationTitleRequest(MsgEx As LibA.CMsgEx)
MsgEx.Title = Me.applicationName
End Sub


"Chip Pearson" wrote:

> Are you talking about receiving standard Excel events (e.g.,
> Change, SelectionChange) from another workbook? If so, you need
> to use Application level events. See
> http://www.cpearson.com/excel/AppEvent.htm for details and
> example code.
>
> Or are you talking about custom, user defined events, declared as
> Event and triggered by RaiseEvent?
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
> "Eric Fingerhut" <[email protected]> wrote
> in message
> news:[email protected]...
> > Is this possible?
> >
> > I have a core library (vba project, "LibA") that I want to be
> > ignorant of
> > any consumers. If I set up a separate project ("LibB") that has
> > a reference
> > set to "LibA", there are times when I may like to make a piece
> > of
> > information available from LiibB to LibA.
> >
> > I thought the natural solution would be to set up an event that
> > broadcasts
> > the need for information in LibA, with and event handler in
> > LibB to provide
> > it. Doing so compiles, but doesn't seem to work.
> >
> > TIA,
> > Eric
>
>
>

Eric,
(not sure which of your two threads we're in, so posting to both...)

The code below worked for me (at least it did what I expected, but I realize
these two are not always the same thing).
To simplify I created two simple classes in the same project, clsA and clsB.
clsB contains an instance of clsA.

I had to cheat a bit and expose the clsA instance of clsB via a property so
I could trigger the clsA event....

Cheers
Tim


'#### test code
Sub Tester()

Dim oB As clsB
Set oB = New clsB
oB.SubClassA.DisplayConsumerInformation

End Sub

'############### clsA code
Option Explicit

Private m_title As String

Public Event appTitleRequest(ByRef MsgEx As clsA)

Public Sub DisplayConsumerInformation()
Me.Title=""
RaiseEvent appTitleRequest(Me)
MsgBox Me.Title
End Sub

Property Let Title(sTitle As String)
m_title = sTitle
End Property

Property Get Title() As String
Title = m_title
End Property

'##################### clsB code
Option Explicit

Private m_title As String

Public Event appTitleRequest(ByRef MsgEx As clsA)

Public Sub DisplayConsumerInformation()
RaiseEvent appTitleRequest(Me)
MsgBox Me.Title
End Sub

Property Let Title(sTitle As String)
m_title = sTitle
End Property

Property Get Title() As String
Title = m_title
End Property



"Eric Fingerhut" <[email protected]> wrote in message
news:[email protected]...
> Thanks for the reply. I'm talking about Custom events, and I must
> apologize
> for accidentally posting this twice. Sample code below:
>
> //////////////////////////////////////////////////////////
> Class CMsgEx is a class in LibA with the following custom event raised in
> a
> sample method below:
> /////////////////////////////////////////////////////////
>
> ' post that we are looking for an application title
> Public Event applicationTitleRequest(MsgEx As CMsgEx)
>
> Public Function displayInformation(ByVal aMsg As String) As VbMsgBoxResult
> RaiseEvent applicationTitleRequest(Me)
> icon = Information
> Caption = aMsg
> Title = aTitle
> displayInformation = show
> End Function
>
> /////////////////////////////////////////////////
> Class CAppFacade is in LibB, and LibB has a refernce to Lib A
> ////////////////////////////////////////////////
>
> Public WithEvents m_oMsgEx As LibA.CMsgEx
>
> Private Sub m_oMsgEx_applicationTitleRequest(MsgEx As LibA.CMsgEx)
> MsgEx.Title = Me.applicationName
> End Sub
>
>
> "Chip Pearson" wrote:
>
>> Are you talking about receiving standard Excel events (e.g.,
>> Change, SelectionChange) from another workbook? If so, you need
>> to use Application level events. See
>> http://www.cpearson.com/excel/AppEvent.htm for details and
>> example code.
>>
>> Or are you talking about custom, user defined events, declared as
>> Event and triggered by RaiseEvent?
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>>
>> "Eric Fingerhut" <[email protected]> wrote
>> in message
>> news:[email protected]...
>> > Is this possible?
>> >
>> > I have a core library (vba project, "LibA") that I want to be
>> > ignorant of
>> > any consumers. If I set up a separate project ("LibB") that has
>> > a reference
>> > set to "LibA", there are times when I may like to make a piece
>> > of
>> > information available from LiibB to LibA.
>> >
>> > I thought the natural solution would be to set up an event that
>> > broadcasts
>> > the need for information in LibA, with and event handler in
>> > LibB to provide
>> > it. Doing so compiles, but doesn't seem to work.
>> >
>> > TIA,
>> > Eric
>>
>>
>>

Sorry - paste error. The clsB code is wrong. Will repost when I get
home...

Tim

OK - this is what I used...

'#### test code
Sub Tester()

Dim oB As clsB
Set oB = New clsB
oB.SubClassA.DisplayConsumerInformation

End Sub

'############### clsA code
Option Explicit

Private m_title As String

Public Event appTitleRequest(ByRef MsgEx As clsA)

Public Sub DisplayConsumerInformation()
Me.Title=""
RaiseEvent appTitleRequest(Me)
MsgBox Me.Title
End Sub

Property Let Title(sTitle As String)
m_title = sTitle
End Property

Property Get Title() As String
Title = m_title
End Property

'##################### clsB code
Public WithEvents m_oMsgEx As clsA

Private Sub Class_Initialize()
Set m_oMsgEx = New clsA
End Sub

Private Sub m_oMsgEx_AppTitleRequest(MsgEx As clsA)
MsgEx.Title = Me.AppName
End Sub

Property Get AppName() As String
AppName = "Some App Name"
End Property

Property Get SubClassA() As clsA
Set SubClassA = m_oMsgEx
End Property



"Tim Williams" <[email protected]> wrote in message
news:[email protected]...
> Sorry - paste error. The clsB code is wrong. Will repost when I get
> home...
>
> Tim
>

Thanks Tim; your code looks perfect, but doesn't work across when the classes
are in two vba projects. When the following below code in classB, which is in
efBasicAppFrameworkLibrary that holds a reference to efBasicVbaLibrary, it
gets a runtime error on New efBasicVbaLibrary.CMsgEx:

Private Sub Class_Initialize()
Set m_oMsgEx = New efBasicVbaLibrary.CMsgEx
End Sub

Thanks,
Eric

"Tim Williams" wrote:

> OK - this is what I used...
>
> '#### test code
> Sub Tester()
>
> Dim oB As clsB
> Set oB = New clsB
> oB.SubClassA.DisplayConsumerInformation
>
> End Sub
>
> '############### clsA code
> Option Explicit
>
> Private m_title As String
>
> Public Event appTitleRequest(ByRef MsgEx As clsA)
>
> Public Sub DisplayConsumerInformation()
> Me.Title=""
> RaiseEvent appTitleRequest(Me)
> MsgBox Me.Title
> End Sub
>
> Property Let Title(sTitle As String)
> m_title = sTitle
> End Property
>
> Property Get Title() As String
> Title = m_title
> End Property
>
> '##################### clsB code
> Public WithEvents m_oMsgEx As clsA
>
> Private Sub Class_Initialize()
> Set m_oMsgEx = New clsA
> End Sub
>
> Private Sub m_oMsgEx_AppTitleRequest(MsgEx As clsA)
> MsgEx.Title = Me.AppName
> End Sub
>
> Property Get AppName() As String
> AppName = "Some App Name"
> End Property
>
> Property Get SubClassA() As clsA
> Set SubClassA = m_oMsgEx
> End Property
>
>
>
> "Tim Williams" <[email protected]> wrote in message
> news:[email protected]...
> > Sorry - paste error. The clsB code is wrong. Will repost when I get
> > home...
> >
> > Tim
> >
>
>
>