Leadtools.Windows.Annotations Namespace > Classes > AnnAutomation > Events > AfterObjectChanged Event

public event EventHandler<AnnAfterObjectChangedEventArgs> AfterObjectChanged

Public Event AfterObjectChanged As EventHandler(Of AnnAfterObjectChangedEventArgs)

public: 
event EventHandler<AnnAfterObjectChangedEventArgs^>^ AfterObjectChanged 

Imports Leadtools.Windows.Controls 
Imports Leadtools.Windows.Annotations 
 
Private 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 

using Leadtools.Windows.Controls; 
using Leadtools.Windows.Annotations; 
using Leadtools.Demos; 
using Leadtools.Help; 
 
private 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); 
} 

using Leadtools.Windows.Controls; 
using Leadtools.Windows.Annotations; 
using Leadtools.Examples; 
using Leadtools.Silverlight.Demos; 
 
private 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); 
} 

Imports Leadtools.Windows.Controls 
Imports Leadtools.Windows.Annotations 
Imports Leadtools.Silverlight.Demos 
 
Private 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 

Products | Support | Contact Us | Copyright Notices
© 1991-2017 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Windows.Annotations Assembly