MedicalViewerCobbAngle Class

'Declaration
 
Public Class MedicalViewerCobbAngle 

' This example makes the color of each newly created object blue.
     Private Class MedicalViewerCobbAngleForm : Inherits Form
         Private _medicalViewer As MedicalViewer
         Private _image As RasterImage

         Private Sub MedicalViewer_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)
         End Sub

         Public Sub New()
             DicomEngine.Startup()
             Dim _codecs As RasterCodecs = New RasterCodecs()

             AddHandler SizeChanged, AddressOf MedicalViewer_SizeChanged

             ' Create the medical viewer and adjust the size and the location.
             _medicalViewer = New MedicalViewer(1, 2)
             _medicalViewer.Location = New Point(0, 0)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)

             ' Load an image and then add it to the control.
             _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm"))
             Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(_image, True, 1, 1)
             _medicalViewer.Cells.Add(cell)

             Dim lineObject1 As AnnLineObject = New AnnLineObject()
             lineObject1.StartPoint = New AnnPoint(150, 50)
             lineObject1.EndPoint = New AnnPoint(300, 50)
             lineObject1.Pen = New AnnPen(Color.Yellow, New AnnLength(3))
             cell.SubCells(0).AnnotationContainer.Objects.Add(lineObject1)


             Dim lineObject2 As AnnLineObject = New AnnLineObject()
             lineObject2.StartPoint = New AnnPoint(100, 100)
             lineObject2.EndPoint = New AnnPoint(300, 250)
             lineObject2.Pen = New AnnPen(Color.Yellow, New AnnLength(3))
             cell.SubCells(0).AnnotationContainer.Objects.Add(lineObject2)

             cell.SubCells(0).CobbAngles.Add(New MedicalViewerCobbAngle(lineObject1, lineObject2))

             cell.AddAction(MedicalViewerActionType.AnnotationRectangle)
             cell.AddAction(MedicalViewerActionType.Alpha)
             cell.AddAction(MedicalViewerActionType.Offset)

             ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated.
             cell.SetAction(MedicalViewerActionType.AnnotationRectangle, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.Alpha, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)

             Controls.Add(_medicalViewer)
             _medicalViewer.Dock = DockStyle.Fill
             DicomEngine.Shutdown()
         End Sub

         Private Sub MedicalViewerLocalizer_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
         End Sub

         Public ReadOnly Property Viewer() As MedicalViewer
             Get
                 Return _medicalViewer
             End Get
         End Property
     End Class

     Private Function GetMedicalViewerCobbAngleForm() As MedicalViewerCobbAngleForm
         Return New MedicalViewerCobbAngleForm()
     End Function

     ' This example changes the default window level value by decrease the width by 100. Then resets the images based on the new value.

     Public Sub MedicalViewerCobbAngleExample()
         Dim myForm As MedicalViewerCobbAngleForm = GetMedicalViewerCobbAngleForm()
         Dim medicalViewer As MedicalViewer = myForm.Viewer

         myForm.ShowDialog()
     End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class