Programming Reference Manual

Event

 
Syntax
 
[ | Public ] _
Event name[([param[, ...]])]
 
Description
User defined event. The event defines a sub that can be defined using WithEvents.. The values of the calling arglist are assigned to the params.
If no access is specified then Public is assumed.
See Also
RaiseEvent, WithEvents.
Example
 
' Class1
Event Changing(ByVal OldValue As String, ByVal NewValue As String)
 
Private Value_ As String
 
Property Get Value As String
    Value = Value_
End Property
 
Property Let Value(ByVal NewValue As String)
    RaiseEvent Changing(Value_, NewValue)
    Value_ = NewValue
End Property
 
'#Uses "Class1.cls"
 
Dim WithEvents c1 As Class1
 
Sub Main
    Set c1 = New Class1
    c1.Value = "Hello"
    c1.Value = "Goodbye"
End Sub
 
Sub c1_Changing(ByVal OldValue As String, ByVal NewValue As String)
    Debug.Print "OldValue=""" & OldValue & """, NewValue=""" & NewValue & """"
End Sub