Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.WinForms
Imports Leadtools.Codecs
Public Sub AnnAutomationManager_CurrentRubberStampTypeChanged(ByVal manager As AnnAutomationManager)
AddHandler manager.CurrentRubberStampTypeChanged, AddressOf OnCurrentRubberStampTypeChanged
End Sub
Private Sub OnCurrentRubberStampTypeChanged(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("Rubber stamp is changed, new type is {0}", manager.CurrentRubberStampType))
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.WinForms;
using Leadtools.Codecs;
public void AnnAutomationManager_CurrentRubberStampTypeChanged(AnnAutomationManager manager)
{
manager.CurrentRubberStampTypeChanged += new EventHandler(OnCurrentRubberStampTypeChanged);
}
private void OnCurrentRubberStampTypeChanged(object sender, EventArgs e)
{
AnnAutomationManager manager = sender as AnnAutomationManager;
MessageBox.Show(String.Format("Rubber stamp is changed, new type is {0}", manager.CurrentRubberStampType));
}