This example will subscribe to the AfterObjectChanged event of all automations and print out a message every time an object changes.

Visual Basic

Copy Code

Public Sub AnnAutomation_AfterObjectChanged(ByVal manager As AnnAutomationManager)    ' subscribe to the AfterObjectChanged event of all automations    For Each automation As AnnAutomation In manager.Automations       AddHandler automation.AfterObjectChanged, AddressOf automation_AfterObjectChanged    Next automation End Sub Private Sub automation_AfterObjectChanged(ByVal sender As Object, ByVal e As AnnAfterObjectChangedEventArgs)    ' print out a message    Dim message As String    If Not e.Objects Is Nothing AndAlso e.Objects.Count < 0 Then       message = String.Format("Objects Count: {0}, First object: {1}, Changed: {2}", e.Objects.Count, e.Objects(0).GetType().Name, e.ChangeType)    Else       message = String.Format("Changed: {0}", e.ChangeType)    End If    MessageBox.Show(message) End Sub

C#

Copy Code

public void AnnAutomation_AfterObjectChanged(AnnAutomationManager manager)  {     // subscribe to the AfterObjectChanged event of all automations     foreach(AnnAutomation automation in manager.Automations)        automation.AfterObjectChanged += new EventHandler<AnnAfterObjectChangedEventArgs>(automation_AfterObjectChanged);  }  private void automation_AfterObjectChanged(object sender, AnnAfterObjectChangedEventArgs e)  {     // print out a message     string message;       if(e.Objects != null && e.Objects.Count < 0)        message = string.Format("Objects Count: {0}, First object: {1}, Changed: {2}", e.Objects.Count, e.Objects[0].GetType().Name, e.ChangeType);     else        message = String.Format("Changed: {0}", e.ChangeType);       MessageBox.Show(message);  }

Target Platforms: Microsoft .NET Framework 2.0, Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 family

Reference