CurrentEditObject Property

public AnnObject CurrentEditObject {get;}

public AnnObject CurrentEditObject {get;}

 get_CurrentEditObject();

public:
property AnnObject^ CurrentEditObject {
   AnnObject^ get();
}

'Declaration
 
Public ReadOnly Property CurrentEditObject As AnnObject

'Usage
 
Dim instance As AnnAutomation
Dim value As AnnObject
 
value = instance.CurrentEditObject

Property Value

The current AnnObject being edited; null (Nothing in Visual Basic) if no objects are currently being edited.

The current object being edited is the AnnObject currently "selected" where its AnnEditDesigner is currently active.

This is the object that will be processed when calling any of the object processing methods of this AnnAutomation. For example, calling Copy will copy the CurrentEditObject into the clipboard.

You can change the CurrentEditObject by calling StartEditing.

Copy Code

Private Sub AnnAutomation_ChangeStrokeToBlue(ByVal automation As AnnAutomation)
   ' check if an object is currently "selected"
   If Not automation.CurrentEditObject Is Nothing Then
      ' check if this object supports a pen
      If automation.CurrentEditObject.SupportsStroke Then
         ' change its pen
         automation.BeginUndo()
         automation.CurrentEditObject.Stroke = Colors.Blue
         automation.CurrentEditObject.StrokeThickness = 2.0
         automation.EndUndo()
      End If
   End If
End Sub

private void AnnAutomation_ChangeStrokeToBlue(AnnAutomation automation)
{
   // check if an object is currently "selected"
   if(automation.CurrentEditObject != null)
   {
      // check if this object supports a pen
      if(automation.CurrentEditObject.SupportsStroke)
      {
         // change its pen
         automation.BeginUndo();
         automation.CurrentEditObject.Stroke = Colors.Blue;
         automation.CurrentEditObject.StrokeThickness = 2.0;
         automation.EndUndo();
      }
   }
}

private void AnnAutomation_ChangeStrokeToBlue(AnnAutomation automation)
{
   // check if an object is currently "selected"
   if(automation.CurrentEditObject != null)
   {
      // check if this object supports a pen
      if(automation.CurrentEditObject.SupportsStroke)
      {
         // change its pen
         automation.BeginUndo();
         automation.CurrentEditObject.Stroke = Colors.Blue;
         automation.CurrentEditObject.StrokeThickness = 2.0;
         automation.EndUndo();
      }
   }
}

Private Sub AnnAutomation_ChangeStrokeToBlue(ByVal automation As AnnAutomation)
   ' check if an object is currently "selected"
   If Not automation.CurrentEditObject Is Nothing Then
      ' check if this object supports a pen
      If automation.CurrentEditObject.SupportsStroke Then
         ' change its pen
         automation.BeginUndo()
         automation.CurrentEditObject.Stroke = Colors.Blue
         automation.CurrentEditObject.StrokeThickness = 2.0
         automation.EndUndo()
      End If
   End If
End Sub

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

Reference

AnnAutomation Class
AnnAutomation Members