RaiseEvent not working

[DavePilot]

I'm working on a good sized project and I am having problems raising an event. So I've just created a little test program to work it out. The code seems to work correctly except I never receive the event in my form??

'------------------
' The CLASS
'------------------
Public Event CustomEvent(strText As String)

Public sub RaiseMyEvent(strText As string)
' Raise the event
RaiseEvent CustomEvent(strText)

End Function

'------------------------
' The FORM
'------------------------
Option Explicit
Dim WithEvents MyEvent As clsEvent
Dim objEvent As New clsEvent

Private Sub Form_Load()
Set MyEvent = New clsEvent
End Sub

Private Sub cmdRaise_Click()
' Load Event Requested
objEvent.RaiseMyEvent(Now)
End Sub

Private Sub MyEvent_CustomEvent(strText As String)
lblEventReceived.Caption = "Event Received: " & strText
End Sub


The event is never received in the Form after the Raise button is clicked.?? Any ideas? I'm stumped.

Thanks,
Dave

 

[zemp]

Two thing you can try.

1. In the class public sub change the 'End Function' to 'End Sub'.

2. You are refering to the wrong instance of your object in the click event. Change

objEvent.RaiseMyEvent(Now)

to

MyEvent.RaiseMyEvent(Now)


That should take care of things.

Thanks and Good Luck!

zemp

 

[DavePilot]

Thanks. Referring to MyEvent was the trick.

Dave