Event fired if a property has changed.

Syntax:

OnChangeProperty( ProjectFile As ProjectFile, NodeNumber As Long,
PropertyName As String, PropertyValue As String )
Parameters: ProjectFile Project file for which the property has been changed.
NodeNumber Node number of the property that has been changed.
PropertyName Name of the property that has been changed.
PropertyValue New value of the property that has been changed.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnChangeProperty(ByVal ProjectFile As ProjectFile, ByVal NodeNumber As Long,
 ByVal PropertyName As String, ByVal PropertyValue As String)
 
[...]

End Sub

' in a module

Public EventManager As New EventClass

Sub TestMacro()
	Set EventManager.App = Application
End Sub

See also:

Class Application

Last Updated: 04/26/05