RaiseEvent Instruction

Syntax                  RaiseEvent name[(arglist)]

Group                   Flow Control

Description           Raise an Event. Evaluate the arglist and call name with those values.

See Also               Event, WithEvents.

Example               'Class1.cls
'#Language "WWB.NET"
Event Changing(ByVal OldValue As String, ByVal NewValue As String)

Private Value_ As String

PropertyGet Value As String
    Value = Value_
EndProperty

PropertyLet Value(ByVal NewValue As String)
    RaiseEvent Changing(Value_, NewValue)
    Value_ = NewValue
EndProperty

'Macro.bas
'#Uses "Class1.cls"
'#Language "WWB.NET"

DimWithEvents c1 As Class1

SubMain
    c1 = New Class1
    c1.Value = "Hello"
    c1.Value = "Goodbye"
EndSub

Sub c1_Changing(ByVal OldValue As String, ByVal NewValue As String) Handles c1.Changing
    Debug.Print "OldValue=""" & OldValue & """, NewValue=""" & NewValue & """"
EndSub