CustomPaint Event

'Declaration
 
Public Event CustomPaint As EventHandler(Of MedicalViewerPaintEventArgs)

Public Sub MedicalViewerEventsExample()
            Dim form As MainForm3 = New MainForm3()
            form.ShowDialog()
        End Sub
#End If
        ' MainForm1 will be the owner of the medical viewer control.
        Private Class MainForm3 : Inherits Form
            Private _medicalViewer As MedicalViewer
            Private _mouseDown As Boolean

            Private Sub _medicalViewer_UserActionMouseMove(ByVal sender As Object, ByVal e As MedicalViewerMouseEventArgs)
                ' Increase the gamma of the image as the user drags the mouse.
                If (e.ActionID = 101) AndAlso _mouseDown Then
                    CType(sender, MedicalViewerCell).Image.PaintGamma += 1
                    CType(sender, MedicalViewerCell).Invalidate()
                End If
            End Sub

            Private Sub _medicalViewer_UserActionMouseUp(ByVal sender As Object, ByVal e As MedicalViewerMouseEventArgs)
                _mouseDown = False
            End Sub

            Private Sub _medicalViewer_UserActionMouseDown(ByVal sender As Object, ByVal e As MedicalViewerMouseEventArgs)
                _mouseDown = True
            End Sub

            Private Sub _medicalViewer_UserActionKeyDown(ByVal sender As Object, ByVal e As MedicalViewerKeyEventArgs)
                If (CType(sender, MedicalViewerCell)).Image.PaintGamma > 1 Then
                    CType(sender, MedicalViewerCell).Image.PaintGamma -= 1
                End If
            End Sub

            Private Sub _medicalViewer_UserActionKeyUp(ByVal sender As Object, ByVal e As MedicalViewerKeyEventArgs)
                CType(sender, MedicalViewerCell).Invalidate()
            End Sub

            Private Sub _medicalViewer_CustomPaint(ByVal sender As Object, ByVal e As MedicalViewerPaintEventArgs)
                ' draw red ellipse around the first frame of the first cell.
                If (e.CellIndex = 0) AndAlso (e.SubCellIndex = 0) Then
                    e.Graphics.DrawEllipse(Pens.Red, e.ClipRectangle)
                End If
            End Sub

            Private Sub _medicalViewer_UserTag(ByVal sender As Object, ByVal e As MedicalViewerUserTagEventArgs)
                ' draw a red string at the bottom right edge of the first cell.
                If e.CellIndex = 0 Then
                    e.Graphics.DrawString("Owner Draw", New Font(FontFamily.GenericSerif, 15), Brushes.Red, New PointF(e.ClipRectangle.Left, e.ClipRectangle.Top))
                End If
            End Sub

            Public Sub New()
                Dim _codecs As RasterCodecs = New RasterCodecs()
                Dim _image As RasterImage

                ' Create the medical viewer and adjust some properties.
                _medicalViewer = New MedicalViewer()
                _medicalViewer.Rows = 1
                _medicalViewer.Columns = 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, "image3.dcm"))
                Dim cell As MedicalViewerCell = New MedicalViewerCell(_image, True)
                cell.AddAction(CType(101, MedicalViewerActionType))
                cell.SetAction(CType(101, MedicalViewerActionType), MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)

                cell.SetActionKeys(CType(101, MedicalViewerActionType), New MedicalViewerKeys(Keys.Up, Keys.Down, Keys.Left, Keys.Right, MedicalViewerModifiers.None))

                AddHandler cell.UserTag, AddressOf _medicalViewer_UserTag
                AddHandler cell.CustomPaint, AddressOf _medicalViewer_CustomPaint
                AddHandler cell.UserActionMouseDown, AddressOf _medicalViewer_UserActionMouseDown
                AddHandler cell.UserActionMouseUp, AddressOf _medicalViewer_UserActionMouseUp
                AddHandler cell.UserActionMouseMove, AddressOf _medicalViewer_UserActionMouseMove
                AddHandler cell.UserActionKeyUp, AddressOf _medicalViewer_UserActionKeyUp
                AddHandler cell.UserActionKeyDown, AddressOf _medicalViewer_UserActionKeyDown

                _medicalViewer.Cells.Add(cell)

                ' adjust some properties of the cell and add some tags.
                cell.SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448")
                cell.SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
                cell.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale)
                cell.SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData)
                cell.SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView)
                cell.SetTag(1, MedicalViewerTagAlignment.TopRight, MedicalViewerTagType.UserData, "Good, Guy")
                cell.SetTag(2, MedicalViewerTagAlignment.TopRight, MedicalViewerTagType.UserData, "PID 125-98-445")
                cell.SetTag(3, MedicalViewerTagAlignment.TopRight, MedicalViewerTagType.UserData, "DOB 08/02/1929")
                cell.SetTag(5, MedicalViewerTagAlignment.TopRight, MedicalViewerTagType.UserData, "03/16/1999")
                cell.SetTag(0, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.RulerUnit)
                cell.SetTag(0, MedicalViewerTagAlignment.BottomRight, MedicalViewerTagType.OwnerDraw)

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

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