possible to sink a control event from a separate class?

Hey All,

I want to handle a combobox AfterUpdate event from a separate class
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/9659-possible-sink-control-event-separate-class.html
module. The below doesn't seem to work, *unless* I also create a
separate AfterUpdate handler right in the form module. I don't want to
have to do that. Is there something else I can do?

' -------------------------------------------
' Here is the entire class module:

Private WithEvents cmb As ComboBox

Property Set c(x As ComboBox)
Set cmb = x
End Property

Private Sub cmb_AfterUpdate()
MsgBox "In after-update!"
End Sub

' -------------------------------------------
' In the form I do this:

Private m As Class1

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9659
Private Sub Form_Load()
Set m = New Class1
Set m.c = Me.Combo0
End Sub
' -------------------------------------------

It feels like the form doesn't create the combobox 'withevents' unless
there's a handler right in the form module. Is that what's going on?
If so, is there a way around it?

Thanks!

-Roy

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

For the record--this is possible. Here is a class that works:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9659

' -------------------------------------------
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=9659
' Here is the entire class module:

Private WithEvents cmb As ComboBox

Property Set c(x As ComboBox)
Set cmb = x
' This is the magic line of code:
cmb.AfterUpdate = "[Event Procedure]"
End Property

Private Sub cmb_AfterUpdate()
MsgBox "In after-update!"
End Sub

' -------------------------------------------

Cheers,

-Roy