LEADTOOLS WPF and Silverlight (Leadtools.Windows.Controls assembly)
LEAD Technologies, Inc

ShapeChanged Event

Example 





Leadtools.Windows.Controls Namespace > MagnifyGlass Class : ShapeChanged Event
Occurs when the value of the Shape property changes. .NET support Silverlight support
Syntax
'Declaration
 
Public Event ShapeChanged As RoutedPropertyChangedEventHandler(Of MagnifyGlassShape)
'Usage
 
Dim instance As MagnifyGlass
Dim handler As RoutedPropertyChangedEventHandler(Of MagnifyGlassShape)
 
AddHandler instance.ShapeChanged, handler
add_ShapeChanged(function(sender, e))
remove_ShapeChanged(function(sender, e))
Remarks

This event is raised if the Shape property is changed by either a programmatic modification or user interaction.

Example
Copy CodeCopy Code   
Private Sub magnifyGlass_CrosshairChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of MagnifyGlassCrosshair))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("Crosshair Changed to " & magnifyGlass.Crosshair.ToString())
End Sub
Private Sub magnifyGlass_CrosshairBrushChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("CrosshairBrush Changed to " & magnifyGlass.CrosshairBrush.ToString())
End Sub

Private Sub magnifyGlass_CrosshairThicknessChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("CrosshairThickness Changed to " & magnifyGlass.CrosshairThickness.ToString())
End Sub

Private Sub magnifyGlass_BorderBrushChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("BorderBrush Changed to " & magnifyGlass.BorderBrush.ToString())
End Sub

Private Sub magnifyGlass_BorderThicknessChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("BorderThickness Changed to " & magnifyGlass.BorderThickness.ToString())
End Sub

Private Sub magnifyGlass_ShapeChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of MagnifyGlassShape))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("Shape Changed to " & magnifyGlass.Shape.ToString())
End Sub

Private Sub magnifyGlass_ScaleFactorChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("Scale Factor Changed to " & magnifyGlass.ScaleFactor.ToString())
End Sub

Private Sub magnifyGlass_RoundRectangleRadiusChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Size))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("RoundRectangleRadius Changed to " & magnifyGlass.RoundRectangleRadius.ToString())
End Sub

Private Sub magnifyGlass_BackgroundChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
  Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
  Console.WriteLine("Background Changed to " & magnifyGlass.Background.ToString())
End Sub

Public Sub MagnifyGlass_Shape(ByVal viewer As ImageViewer)
  viewer.InteractiveMode = InteractiveMode.MagnifyGlass
       AddHandler viewer.MagnifyGlass.CrosshairChanged, AddressOf magnifyGlass_CrosshairChanged
       AddHandler viewer.MagnifyGlass.CrosshairBrushChanged, AddressOf magnifyGlass_CrosshairBrushChanged
       AddHandler viewer.MagnifyGlass.CrosshairThicknessChanged, AddressOf magnifyGlass_CrosshairThicknessChanged
       AddHandler viewer.MagnifyGlass.BorderBrushChanged, AddressOf magnifyGlass_BorderBrushChanged
       AddHandler viewer.MagnifyGlass.BorderThicknessChanged, AddressOf magnifyGlass_BorderThicknessChanged
       AddHandler viewer.MagnifyGlass.ShapeChanged, AddressOf magnifyGlass_ShapeChanged
       AddHandler viewer.MagnifyGlass.ScaleFactorChanged, AddressOf magnifyGlass_ScaleFactorChanged
       AddHandler viewer.MagnifyGlass.RoundRectangleRadiusChanged, AddressOf magnifyGlass_RoundRectangleRadiusChanged
       AddHandler viewer.MagnifyGlass.BackgroundChanged, AddressOf magnifyGlass_BackgroundChanged

  If viewer.MagnifyGlass.Shape <> MagnifyGlassShape.Border3D Then
    ' Set the crosshair style
    viewer.MagnifyGlass.Shape = MagnifyGlassShape.Border3D

    ' Now change to a different shape
    viewer.MagnifyGlass.Shape = MagnifyGlassShape.RoundRectangle
    viewer.MagnifyGlass.RoundRectangleRadius = New Size(15, 15)
    viewer.MagnifyGlass.BorderBrush = Brushes.DarkBlue
    viewer.MagnifyGlass.BorderThickness = 10
    viewer.MagnifyGlass.Crosshair = MagnifyGlassCrosshair.Fine
    viewer.MagnifyGlass.CrosshairBrush = Brushes.Red
    viewer.MagnifyGlass.CrosshairThickness = 5
    viewer.MagnifyGlass.Size = New Size(200, 200)
    viewer.MagnifyGlass.Background = Brushes.DarkGreen

    viewer.MagnifyGlass.ScaleFactor = 1.5f
  End If

       RemoveHandler viewer.MagnifyGlass.CrosshairChanged, AddressOf magnifyGlass_CrosshairChanged
       RemoveHandler viewer.MagnifyGlass.CrosshairBrushChanged, AddressOf magnifyGlass_CrosshairBrushChanged
       RemoveHandler viewer.MagnifyGlass.CrosshairThicknessChanged, AddressOf magnifyGlass_CrosshairThicknessChanged
       RemoveHandler viewer.MagnifyGlass.BorderBrushChanged, AddressOf magnifyGlass_BorderBrushChanged
       RemoveHandler viewer.MagnifyGlass.BorderThicknessChanged, AddressOf magnifyGlass_BorderThicknessChanged
       RemoveHandler viewer.MagnifyGlass.ShapeChanged, AddressOf magnifyGlass_ShapeChanged
       RemoveHandler viewer.MagnifyGlass.ScaleFactorChanged, AddressOf magnifyGlass_ScaleFactorChanged
       RemoveHandler viewer.MagnifyGlass.RoundRectangleRadiusChanged, AddressOf magnifyGlass_RoundRectangleRadiusChanged
       RemoveHandler viewer.MagnifyGlass.BackgroundChanged, AddressOf magnifyGlass_BackgroundChanged
   End Sub
private void magnifyGlass_CrosshairChanged(object sender, RoutedPropertyChangedEventArgs<MagnifyGlassCrosshair> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Crosshair Changed to " + magnifyGlass.Crosshair.ToString());
}
private void magnifyGlass_CrosshairBrushChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("CrosshairBrush Changed to " + magnifyGlass.CrosshairBrush.ToString());
}

private void magnifyGlass_CrosshairThicknessChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("CrosshairThickness Changed to " + magnifyGlass.CrosshairThickness.ToString());
}

private void magnifyGlass_BorderBrushChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("BorderBrush Changed to " + magnifyGlass.BorderBrush.ToString());
}

private void magnifyGlass_BorderThicknessChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("BorderThickness Changed to " + magnifyGlass.BorderThickness.ToString());
}

private void magnifyGlass_ShapeChanged(object sender, RoutedPropertyChangedEventArgs<MagnifyGlassShape> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Shape Changed to " + magnifyGlass.Shape.ToString());
}

private void magnifyGlass_ScaleFactorChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Scale Factor Changed to " + magnifyGlass.ScaleFactor.ToString());
}

private void magnifyGlass_RoundRectangleRadiusChanged(object sender, RoutedPropertyChangedEventArgs<Size> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("RoundRectangleRadius Changed to " + magnifyGlass.RoundRectangleRadius.ToString());
}

private void magnifyGlass_BackgroundChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Background Changed to " + magnifyGlass.Background.ToString());
}

public void MagnifyGlass_Shape(ImageViewer viewer)
{
   viewer.InteractiveMode = InteractiveMode.MagnifyGlass;
   viewer.MagnifyGlass.CrosshairChanged +=new RoutedPropertyChangedEventHandler<MagnifyGlassCrosshair>(magnifyGlass_CrosshairChanged);
   viewer.MagnifyGlass.CrosshairBrushChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_CrosshairBrushChanged);
   viewer.MagnifyGlass.CrosshairThicknessChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_CrosshairThicknessChanged);
   viewer.MagnifyGlass.BorderBrushChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BorderBrushChanged);
   viewer.MagnifyGlass.BorderThicknessChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_BorderThicknessChanged);
   viewer.MagnifyGlass.ShapeChanged +=new RoutedPropertyChangedEventHandler<MagnifyGlassShape>(magnifyGlass_ShapeChanged);
   viewer.MagnifyGlass.ScaleFactorChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_ScaleFactorChanged);
   viewer.MagnifyGlass.RoundRectangleRadiusChanged +=new RoutedPropertyChangedEventHandler<Size>(magnifyGlass_RoundRectangleRadiusChanged);
   viewer.MagnifyGlass.BackgroundChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BackgroundChanged);

   if(viewer.MagnifyGlass.Shape != MagnifyGlassShape.Border3D)
   {
      // Set the crosshair style
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.Border3D;

      // Now change to a different shape
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.RoundRectangle;
      viewer.MagnifyGlass.RoundRectangleRadius = new Size(15, 15);
      viewer.MagnifyGlass.BorderBrush = Brushes.DarkBlue;
      viewer.MagnifyGlass.BorderThickness = 10;
      viewer.MagnifyGlass.Crosshair = MagnifyGlassCrosshair.Fine;
      viewer.MagnifyGlass.CrosshairBrush = Brushes.Red;
      viewer.MagnifyGlass.CrosshairThickness = 5;
      viewer.MagnifyGlass.Size = new Size(200, 200);
      viewer.MagnifyGlass.Background = Brushes.DarkGreen;

      viewer.MagnifyGlass.ScaleFactor = 1.5f;
   }

   viewer.MagnifyGlass.CrosshairChanged -= new RoutedPropertyChangedEventHandler<MagnifyGlassCrosshair>(magnifyGlass_CrosshairChanged);
   viewer.MagnifyGlass.CrosshairBrushChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_CrosshairBrushChanged);
   viewer.MagnifyGlass.CrosshairThicknessChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_CrosshairThicknessChanged);
   viewer.MagnifyGlass.BorderBrushChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BorderBrushChanged);
   viewer.MagnifyGlass.BorderThicknessChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_BorderThicknessChanged);
   viewer.MagnifyGlass.ShapeChanged -= new RoutedPropertyChangedEventHandler<MagnifyGlassShape>(magnifyGlass_ShapeChanged);
   viewer.MagnifyGlass.ScaleFactorChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_ScaleFactorChanged);
   viewer.MagnifyGlass.RoundRectangleRadiusChanged -= new RoutedPropertyChangedEventHandler<Size>(magnifyGlass_RoundRectangleRadiusChanged);
   viewer.MagnifyGlass.BackgroundChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BackgroundChanged);
}
private void magnifyGlass_CrosshairChanged(object sender, RoutedPropertyChangedEventArgs<MagnifyGlassCrosshair> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Crosshair Changed to " + magnifyGlass.Crosshair.ToString());
}
private void magnifyGlass_CrosshairBrushChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("CrosshairBrush Changed to " + magnifyGlass.CrosshairBrush.ToString());
}

private void magnifyGlass_CrosshairThicknessChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("CrosshairThickness Changed to " + magnifyGlass.CrosshairThickness.ToString());
}

private void magnifyGlass_BorderBrushChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("BorderBrush Changed to " + magnifyGlass.BorderBrush.ToString());
}

private void magnifyGlass_BorderThicknessChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("BorderThickness Changed to " + magnifyGlass.BorderThickness.ToString());
}

private void magnifyGlass_ShapeChanged(object sender, RoutedPropertyChangedEventArgs<MagnifyGlassShape> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Shape Changed to " + magnifyGlass.Shape.ToString());
}

private void magnifyGlass_ScaleFactorChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Scale Factor Changed to " + magnifyGlass.ScaleFactor.ToString());
}

private void magnifyGlass_RoundRectangleRadiusChanged(object sender, RoutedPropertyChangedEventArgs<Size> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("RoundRectangleRadius Changed to " + magnifyGlass.RoundRectangleRadius.ToString());
}

private void magnifyGlass_BackgroundChanged(object sender, RoutedPropertyChangedEventArgs<Brush> e)
{
   MagnifyGlass magnifyGlass = sender as MagnifyGlass;
   Console.WriteLine("Background Changed to " + magnifyGlass.Background.ToString());
}

public void MagnifyGlass_Shape(ImageViewer viewer)
{
   viewer.InteractiveMode = InteractiveMode.MagnifyGlass;
   viewer.MagnifyGlass.CrosshairChanged +=new RoutedPropertyChangedEventHandler<MagnifyGlassCrosshair>(magnifyGlass_CrosshairChanged);
   viewer.MagnifyGlass.CrosshairBrushChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_CrosshairBrushChanged);
   viewer.MagnifyGlass.CrosshairThicknessChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_CrosshairThicknessChanged);
   viewer.MagnifyGlass.BorderBrushChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BorderBrushChanged);
   viewer.MagnifyGlass.BorderThicknessChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_BorderThicknessChanged);
   viewer.MagnifyGlass.ShapeChanged +=new RoutedPropertyChangedEventHandler<MagnifyGlassShape>(magnifyGlass_ShapeChanged);
   viewer.MagnifyGlass.ScaleFactorChanged +=new RoutedPropertyChangedEventHandler<double>(magnifyGlass_ScaleFactorChanged);
   viewer.MagnifyGlass.RoundRectangleRadiusChanged +=new RoutedPropertyChangedEventHandler<Size>(magnifyGlass_RoundRectangleRadiusChanged);
   viewer.MagnifyGlass.BackgroundChanged +=new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BackgroundChanged);

   if(viewer.MagnifyGlass.Shape != MagnifyGlassShape.Border3D)
   {
      // Set the crosshair style
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.Border3D;

      // Now change to a different shape
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.RoundRectangle;
      viewer.MagnifyGlass.RoundRectangleRadius = new Size(15, 15);
      viewer.MagnifyGlass.BorderBrush = new SolidColorBrush(Colors.Blue);
      viewer.MagnifyGlass.BorderThickness = 10;
      viewer.MagnifyGlass.Crosshair = MagnifyGlassCrosshair.Fine;
      viewer.MagnifyGlass.CrosshairBrush = new SolidColorBrush(Colors.Red);
      viewer.MagnifyGlass.CrosshairThickness = 5;
      viewer.MagnifyGlass.Size = new Size(200, 200);
      viewer.MagnifyGlass.Background = new SolidColorBrush(Colors.Green);

      viewer.MagnifyGlass.ScaleFactor = 1.5f;
   }

   viewer.MagnifyGlass.CrosshairChanged -= new RoutedPropertyChangedEventHandler<MagnifyGlassCrosshair>(magnifyGlass_CrosshairChanged);
   viewer.MagnifyGlass.CrosshairBrushChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_CrosshairBrushChanged);
   viewer.MagnifyGlass.CrosshairThicknessChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_CrosshairThicknessChanged);
   viewer.MagnifyGlass.BorderBrushChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BorderBrushChanged);
   viewer.MagnifyGlass.BorderThicknessChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_BorderThicknessChanged);
   viewer.MagnifyGlass.ShapeChanged -= new RoutedPropertyChangedEventHandler<MagnifyGlassShape>(magnifyGlass_ShapeChanged);
   viewer.MagnifyGlass.ScaleFactorChanged -= new RoutedPropertyChangedEventHandler<double>(magnifyGlass_ScaleFactorChanged);
   viewer.MagnifyGlass.RoundRectangleRadiusChanged -= new RoutedPropertyChangedEventHandler<Size>(magnifyGlass_RoundRectangleRadiusChanged);
   viewer.MagnifyGlass.BackgroundChanged -= new RoutedPropertyChangedEventHandler<Brush>(magnifyGlass_BackgroundChanged);
}
Private Sub magnifyGlass_CrosshairChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of MagnifyGlassCrosshair))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("Crosshair Changed to " & magnifyGlass.Crosshair.ToString())
End Sub
Private Sub magnifyGlass_CrosshairBrushChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("CrosshairBrush Changed to " & magnifyGlass.CrosshairBrush.ToString())
End Sub

Private Sub magnifyGlass_CrosshairThicknessChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("CrosshairThickness Changed to " & magnifyGlass.CrosshairThickness.ToString())
End Sub

Private Sub magnifyGlass_BorderBrushChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("BorderBrush Changed to " & magnifyGlass.BorderBrush.ToString())
End Sub

Private Sub magnifyGlass_BorderThicknessChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("BorderThickness Changed to " & magnifyGlass.BorderThickness.ToString())
End Sub

Private Sub magnifyGlass_ShapeChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of MagnifyGlassShape))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("Shape Changed to " & magnifyGlass.Shape.ToString())
End Sub

Private Sub magnifyGlass_ScaleFactorChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("Scale Factor Changed to " & magnifyGlass.ScaleFactor.ToString())
End Sub

Private Sub magnifyGlass_RoundRectangleRadiusChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Size))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("RoundRectangleRadius Changed to " & magnifyGlass.RoundRectangleRadius.ToString())
End Sub

Private Sub magnifyGlass_BackgroundChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Brush))
   Dim magnifyGlass As MagnifyGlass = TryCast(sender, MagnifyGlass)
   Console.WriteLine("Background Changed to " & magnifyGlass.Background.ToString())
End Sub

Public Sub MagnifyGlass_Shape(ByVal viewer As ImageViewer)
   viewer.InteractiveMode = InteractiveMode.MagnifyGlass
   AddHandler viewer.MagnifyGlass.CrosshairChanged, AddressOf magnifyGlass_CrosshairChanged
   AddHandler viewer.MagnifyGlass.CrosshairBrushChanged, AddressOf magnifyGlass_CrosshairBrushChanged
   AddHandler viewer.MagnifyGlass.CrosshairThicknessChanged, AddressOf magnifyGlass_CrosshairThicknessChanged
   AddHandler viewer.MagnifyGlass.BorderBrushChanged, AddressOf magnifyGlass_BorderBrushChanged
   AddHandler viewer.MagnifyGlass.BorderThicknessChanged, AddressOf magnifyGlass_BorderThicknessChanged
   AddHandler viewer.MagnifyGlass.ShapeChanged, AddressOf magnifyGlass_ShapeChanged
   AddHandler viewer.MagnifyGlass.ScaleFactorChanged, AddressOf magnifyGlass_ScaleFactorChanged
   AddHandler viewer.MagnifyGlass.RoundRectangleRadiusChanged, AddressOf magnifyGlass_RoundRectangleRadiusChanged
   AddHandler viewer.MagnifyGlass.BackgroundChanged, AddressOf magnifyGlass_BackgroundChanged

   If viewer.MagnifyGlass.Shape <> MagnifyGlassShape.Border3D Then
      ' Set the crosshair style
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.Border3D

      ' Now change to a different shape
      viewer.MagnifyGlass.Shape = MagnifyGlassShape.RoundRectangle
      viewer.MagnifyGlass.RoundRectangleRadius = New Size(15, 15)
      viewer.MagnifyGlass.BorderBrush = New SolidColorBrush(Colors.Blue)
      viewer.MagnifyGlass.BorderThickness = 10
      viewer.MagnifyGlass.Crosshair = MagnifyGlassCrosshair.Fine
      viewer.MagnifyGlass.CrosshairBrush = New SolidColorBrush(Colors.Red)
      viewer.MagnifyGlass.CrosshairThickness = 5
      viewer.MagnifyGlass.Size = New Size(200, 200)
      viewer.MagnifyGlass.Background = New SolidColorBrush(Colors.Green)

      viewer.MagnifyGlass.ScaleFactor = 1.5f
   End If

   RemoveHandler viewer.MagnifyGlass.CrosshairChanged, AddressOf magnifyGlass_CrosshairChanged
   RemoveHandler viewer.MagnifyGlass.CrosshairBrushChanged, AddressOf magnifyGlass_CrosshairBrushChanged
   RemoveHandler viewer.MagnifyGlass.CrosshairThicknessChanged, AddressOf magnifyGlass_CrosshairThicknessChanged
   RemoveHandler viewer.MagnifyGlass.BorderBrushChanged, AddressOf magnifyGlass_BorderBrushChanged
   RemoveHandler viewer.MagnifyGlass.BorderThicknessChanged, AddressOf magnifyGlass_BorderThicknessChanged
   RemoveHandler viewer.MagnifyGlass.ShapeChanged, AddressOf magnifyGlass_ShapeChanged
   RemoveHandler viewer.MagnifyGlass.ScaleFactorChanged, AddressOf magnifyGlass_ScaleFactorChanged
   RemoveHandler viewer.MagnifyGlass.RoundRectangleRadiusChanged, AddressOf magnifyGlass_RoundRectangleRadiusChanged
   RemoveHandler viewer.MagnifyGlass.BackgroundChanged, AddressOf magnifyGlass_BackgroundChanged
End Sub
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

MagnifyGlass Class
MagnifyGlass Members

 

 

Products | Support | Contact Us | Copyright Notices

© 2006-2012 All Rights Reserved. LEAD Technologies, Inc.