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