RaiseEvent Instruction
Syntax
RaiseEvent name[(arglist)]
Group
Description
Raise an Event. Evaluate the arglist and call name with those values.
Example
'Class1.cls '#Language "WWB-COM" 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 'Macro.bas '#Uses "Class1.cls" '#Language "WWB-COM" 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
See also