←Select platform

FindObject Method

Summary

Finds the AnnAutomationObject associated with a certain ID.

Syntax

C++

public Leadtools.Windows.Annotations.AnnAutomationObject FindObject(  
   int id 
)

Public Function FindObject( _ 
   ByVal id As Integer _ 
) As Leadtools.Windows.Annotations.AnnAutomationObject

public: 
Leadtools.Windows.Annotations.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 VB) otherwise.

Remarks

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

id
The ID of the AnnAutomationObject to find

Example

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

Silverlight C#

Silverlight VB

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