FindObject Method

C#
Visual Basic
Objective-C
Java
C++

public AnnAutomationObject FindObject( 
   int id
)

'Declaration
 
Public Function FindObject( _
   ByVal id As Integer _
) As AnnAutomationObject

'Usage
 
Dim instance As AnnAutomationManager
Dim id As Integer
Dim value As AnnAutomationObject
 
value = instance.FindObject(id)

public:
AnnAutomationObject^ FindObject( 
   int id
)

Parameters

id: The ID of the AnnAutomationObject to find

Return Value

The AnnAutomationObject from Objects for this ID if found; null (Nothing in Visual Basic) otherwise.

This method enumerates all of the AnnAutomationObject items in the Objects collection and compares AnnAutomationObject.Id with id.

This example changes the line color of new line automation objects to blue.

C#
Visual Basic
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations

Private Sub AnnAutomationManager_FindObject(ByVal manager As AnnAutomationManager)
   ' fine the line automation object
   Dim autObj As AnnAutomationObject = manager.FindObject(AnnAutomationManager.LineObjectId)
   If Not autObj Is Nothing Then
      autObj.Object.Stroke = Colors.Blue
      autObj.Object.StrokeThickness = 2.0
   End If
End Sub

using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;

private void AnnAutomationManager_FindObject(AnnAutomationManager manager)
{
   // fine the line automation object
   AnnAutomationObject autObj = manager.FindObject(AnnAutomationManager.LineObjectId);
   if(autObj != null)
   {
      autObj.Object.Stroke = Colors.Blue;
      autObj.Object.StrokeThickness = 2.0;
   }
}

using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;

private void AnnAutomationManager_FindObject(AnnAutomationManager manager)
{
   // fine the line automation object
   AnnAutomationObject autObj = manager.FindObject(AnnAutomationManager.LineObjectId);
   if(autObj != null)
   {
      autObj.Object.Stroke = Colors.Blue;
      autObj.Object.StrokeThickness = 2.0;
   }
}

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos

Private Sub AnnAutomationManager_FindObject(ByVal manager As AnnAutomationManager)
   ' fine the line automation object
   Dim autObj As AnnAutomationObject = manager.FindObject(AnnAutomationManager.LineObjectId)
   If Not autObj Is Nothing Then
      autObj.Object.Stroke = Colors.Blue
      autObj.Object.StrokeThickness = 2.0
   End If
End Sub

Target Platforms

Reference

AnnAutomationManager Class
AnnAutomationManager Members