Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private 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 = DirectCast(sender, AnnAutomationManager)
MessageBox.Show(String.Format("Rubber stamp is changed, new type is {0}", manager.CurrentRubberStampType))
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
private 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));
}
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;
private 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));
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos
Private 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 = TryCast(sender, AnnAutomationManager)
MessageBox.Show(String.Format("Rubber stamp is changed, new type is {0}", manager.CurrentRubberStampType))
End Sub