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
| |
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
|