DesignerCreated Event

'Declaration
 
Public Event DesignerCreated As EventHandler(Of MedicalViewerDesignerCreatedEventArgs)

' This example makes the color of each newly created object blue.
     Private Class MedicalViewerDesignerCreatedForm : 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)
             AddHandler cell.DesignerCreated, AddressOf cell_DesignerCreated

             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 cell_DesignerCreated(ByVal sender As Object, ByVal e As MedicalViewerDesignerCreatedEventArgs)
             If e.Type = MedicalViewerDesignerType.DrawDesigner Then
                 Dim designer As AnnDrawDesigner = CType(e.Designer, AnnDrawDesigner)
                 AddHandler designer.Draw, AddressOf designer_Draw
             End If
         End Sub

         Private Sub designer_Draw(ByVal sender As Object, ByVal e As AnnDrawDesignerEventArgs)
             If e.OperationStatus = AnnDesignerOperationStatus.Start Then
                 e.Object.Brush = New AnnSolidBrush(Color.Blue)
             End If
         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 GetMedicalViewerDesignerCreatedForm() As MedicalViewerDesignerCreatedForm
         Dim form As MedicalViewerSeriesManagerFrom = New MedicalViewerSeriesManagerFrom()
         Return New MedicalViewerDesignerCreatedForm()
     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 MedicalViewerDesignerCreatedExample()
         Dim myForm As MedicalViewerDesignerCreatedForm = GetMedicalViewerDesignerCreatedForm()
         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