Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private Sub AnnAutomationManager_CurrentObjectIdChanged(ByVal manager As AnnAutomationManager)
AddHandler manager.CurrentObjectIdChanged, AddressOf OnCurrentObjectIdChanged
End Sub
Private Sub OnCurrentObjectIdChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim manager As AnnAutomationManager = DirectCast(sender, AnnAutomationManager)
MessageBox.Show(String.Format("Object Id changed, new Id is {0}", manager.CurrentObjectId))
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
private void AnnAutomationManager_CurrentObjectIdChanged(AnnAutomationManager manager)
{
manager.CurrentObjectIdChanged += new EventHandler(OnCurrentObjectIdChanged);
}
private void OnCurrentObjectIdChanged(object sender, EventArgs e)
{
AnnAutomationManager manager = sender as AnnAutomationManager;
MessageBox.Show(String.Format("Object Id changed, new Id is {0}", manager.CurrentObjectId));
}
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;
private void AnnAutomationManager_CurrentObjectIdChanged(AnnAutomationManager manager)
{
manager.CurrentObjectIdChanged += new EventHandler(OnCurrentObjectIdChanged);
}
private void OnCurrentObjectIdChanged(object sender, EventArgs e)
{
AnnAutomationManager manager = sender as AnnAutomationManager;
MessageBox.Show(String.Format("Object Id changed, new Id is {0}", manager.CurrentObjectId));
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos
Private Sub AnnAutomationManager_CurrentObjectIdChanged(ByVal manager As AnnAutomationManager)
AddHandler manager.CurrentObjectIdChanged, AddressOf OnCurrentObjectIdChanged
End Sub
Private Sub OnCurrentObjectIdChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim manager As AnnAutomationManager = TryCast(sender, AnnAutomationManager)
MessageBox.Show(String.Format("Object Id changed, new Id is {0}", manager.CurrentObjectId))
End Sub