AnnRunDesigner Class

Imports Leadtools 
Imports Leadtools.Annotations 
Imports Leadtools.Codecs 
Imports Leadtools.WinForms 
 
Private Class MyForm1 : Inherits Form 
   Private myAnnContainer As AnnContainer 
   Private viewer As RasterImageViewer 
   Private codecs As RasterCodecs 
   Private currentDesigner As AnnDesigner 
 
   Public Sub New(ByVal title As String) 
      Text = title 
      Size = New Size(500, 200) 
 
      viewer = New RasterImageViewer() 
      AddHandler viewer.TransformChanged, AddressOf viewer_TransformChanged 
      AddHandler viewer.PostImagePaint, AddressOf viewer_PostImagePaint 
      AddHandler viewer.MouseDown, AddressOf viewer_MouseDown 
      AddHandler viewer.MouseMove, AddressOf viewer_MouseMove 
      AddHandler viewer.MouseUp, AddressOf viewer_MouseUp 
      AddHandler viewer.LostFocus, AddressOf viewer_LostFocus 
 
      ' load an image into the viewer 
      codecs = New RasterCodecs() 
      viewer.Image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp")) ' fix this path to an existing image file on your system 
 
      ' create and set up the container 
      myAnnContainer = New AnnContainer() 
      myAnnContainer.Bounds = New AnnRectangle(0, 0, viewer.ImageSize.Width, viewer.ImageSize.Height) 
      myAnnContainer.UnitConverter = New AnnUnitConverter(viewer.ImageDpiX, viewer.ImageDpiY) 
 
      ' Add the viewer 
      viewer.Dock = DockStyle.Fill 
      Controls.Add(viewer) 
      viewer.BringToFront() 
 
      ' add a few objects to the container 
      Dim rectObj As AnnRectangleObject = New AnnRectangleObject() 
      rectObj.Bounds = New AnnRectangle(100, 100, 200, 200, AnnUnit.Pixel) 
      rectObj.Pen = New AnnPen(Color.Blue, New AnnLength(2, AnnUnit.Pixel)) 
      rectObj.Brush = New AnnSolidBrush(Color.Yellow) 
      myAnnContainer.Objects.Add(rectObj) 
 
      Dim buttonObj As AnnButtonObject = New AnnButtonObject() 
      buttonObj.Bounds = New AnnRectangle(100, 320, 200, 24, AnnUnit.Pixel) 
      buttonObj.Text = "Goto Leadtools website" 
      buttonObj.TextColor = Color.Black 
      buttonObj.Font = New AnnFont("Arial", New AnnLength(8, AnnUnit.Point), FontStyle.Regular) 
      buttonObj.Hyperlink = "https://www.leadtools.com" 
      myAnnContainer.Objects.Add(buttonObj) 
   End Sub 
 
   Private Sub viewer_TransformChanged(ByVal sender As Object, ByVal e As EventArgs) 
      ' set up the container transformation 
      If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then 
         myAnnContainer.Transform = viewer.Transform.Clone() 
      End If 
   End Sub 
 
   Private Sub viewer_PostImagePaint(ByVal sender As Object, ByVal e As PaintEventArgs) 
      ' draw the container and its objects on this viewer 
      If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then 
         myAnnContainer.Draw(e.Graphics) 
      End If 
   End Sub 
 
   Private Sub viewer_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseDown(e) 
      End If 
 
      If (Not handled) Then 
         ' the mouse click was not handled by a designer 
         ' check if the click was on top of an existing object that we can start running 
         Dim pt As AnnPoint = New AnnPoint(e.X, e.Y) 
         Dim obj As AnnObject = myAnnContainer.HitTest(pt, 2) 
         If Not obj Is Nothing Then 
            ' yes, start the run designer for this object 
            If TypeOf obj Is AnnButtonObject Then 
               Dim buttonRunDesigner As AnnButtonRunDesigner = New AnnButtonRunDesigner() 
               StartRunning(buttonRunDesigner, obj, e) 
            Else 
               Dim runDesigner As AnnRunDesigner = New AnnRunDesigner() 
               StartRunning(runDesigner, obj, e) 
            End If 
         End If 
      End If 
   End Sub 
 
   Private Sub StartRunning(ByVal runDesigner As AnnRunDesigner, ByVal obj As AnnObject, ByVal e As MouseEventArgs) 
      ' set up the current designer 
      AddHandler runDesigner.Run, AddressOf OnDesignerRun 
      runDesigner.Owner = viewer 
      runDesigner.Container = myAnnContainer 
      runDesigner.ClipCursor = True 
      runDesigner.Object = obj 
      runDesigner.HitTestBuffer = 2 
      runDesigner.Start() 
      currentDesigner = runDesigner 
      currentDesigner.MouseDown(e) 
   End Sub 
 
   Private Sub OnDesignerRun(ByVal sender As Object, ByVal e As AnnRunDesignerEventArgs) 
      ' show information on the current edit operation 
      Console.WriteLine("Object: {0}, Status: {1}, ", e.Object.GetType().Name, e.OperationStatus) 
 
      If e.OperationStatus = AnnDesignerOperationStatus.End Then 
         ' check if the object does not have a hyperlink, if so, show a message box 
         If e.Object.Hyperlink Is Nothing OrElse e.Object.Hyperlink = String.Empty Then 
            MessageBox.Show(String.Format("You clicked an object of type {0} that does not have a hyperlink", e.Object.GetType().Name)) 
         End If 
      End If 
   End Sub 
 
   Private Sub viewer_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseMove(e) 
      End If 
   End Sub 
 
   Private Sub viewer_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseUp(e) 
      End If 
   End Sub 
 
   Private Sub viewer_LostFocus(ByVal sender As Object, ByVal e As EventArgs) 
      ' see if a designer is currently running, if so, cancel it 
      If Not currentDesigner Is Nothing Then 
         currentDesigner.Cancel() 
      End If 
   End Sub 
End Class 
 
Public Sub AnnRunDesigner_AnnRunDesigner(ByVal title As String) 
   Dim form As MyForm1 = New MyForm1(title) 
   form.ShowDialog() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class