Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.WinForms
Imports Leadtools.Codecs
Public 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 = CType(IIf(TypeOf sender Is AnnAutomationManager, sender, Nothing), AnnAutomationManager)
MessageBox.Show(String.Format("Object Id changed, new Id is {0}", manager.CurrentObjectId))
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.WinForms;
using Leadtools.Codecs;
public 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));
}