Thread: Raising Events
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Art Art is offline
external usenet poster
 
Posts: 587
Default Raising Events

Hi,

I've got a form "frmLoadAccount" with a label on it "uxLoad".
My form has the following code in it:

Public Event testEvent()

Private Sub uxLoad_Click()
RaiseEvent testEvent
End Sub

(I like labels better than buttons)


I have a class "Account" with the following code in it:

Public WithEvents xFrm As frmLoadAccount

Public Sub Init()
Set xFrm = New frmLoadAccount
xFrm.Show
End Sub

Public Sub xFrm_testEvent()
Stop
End Sub

My hope was that by clicking on the "uxLoad", I would trigger "testEvent",
and run the "xFrm_testEvent". The debugger gets to the RaiseEvent statement,
but then nothing. Am I doing something wrong?

I tried to do this by running a sub inside the code for the form and that
DID work. I'm wondering if there's a problem because I try to raise an event
from within an event handler.

I'd appreciate any help.