LEADTOOLS Annotations (Leadtools.Annotations assembly)
LEAD Technologies, Inc

AfterObjectChanged Event

Example 





Occurs after an AnnObject has been changed.
Syntax
public event EventHandler<AnnAfterObjectChangedEventArgs> AfterObjectChanged
'Declaration
 
Public Event AfterObjectChanged As EventHandler(Of AnnAfterObjectChangedEventArgs)
'Usage
 
Dim instance As AnnAutomation
Dim handler As EventHandler(Of AnnAfterObjectChangedEventArgs)
 
AddHandler instance.AfterObjectChanged, handler
public event EventHandler<AnnAfterObjectChangedEventArgs> AfterObjectChanged
add_AfterObjectChanged(function(sender, e))
remove_AfterObjectChanged(function(sender, e))

public:
event EventHandler<AnnAfterObjectChangedEventArgs^>^ AfterObjectChanged
Event Data

The event handler receives an argument of type AnnAfterObjectChangedEventArgs containing data related to this event. The following AnnAfterObjectChangedEventArgs properties provide information specific to this event.

PropertyDescription
ChangeType Gets the type of change.
Designer Gets the designer responsible for the change.
Objects Gets the objects that have been changed.
Remarks

This event will be fired after an AnnObject has been modified by this AnnAutomation

NOTE: The object is not inserted into the Automation's container until this event has returned. This is to allow the user to cancel the Insertion operation.

Example
 
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
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);
}
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

AnnAutomation Class
AnnAutomation Members

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 All Rights Reserved. LEAD Technologies, Inc.