Private Class MedicalViewerForm6 : Inherits Form 
   Private _medicalViewer As MedicalViewer 
   Private Sub MedicalViewerForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom) 
   End Sub 
 
   Public Sub New() 
      RasterCodecs.Startup() 
      Dim _codecs As RasterCodecs = New RasterCodecs() 
      Dim _image As RasterImage 
 
      AddHandler SizeChanged, AddressOf MedicalViewerForm_SizeChanged 
 
       
      _medicalViewer = New MedicalViewer(1, 2) 
      _medicalViewer.Location = New Point(0, 0) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom) 
 
       
      _image = _codecs.Load(LeadtoolsExamples.Common.ImagesPath.Path + "xa.dcm") 
      _medicalViewer.Cells.Add(New MedicalViewerCell(_image, True, 1, 1)) 
 
       
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448") 
      _medicalViewer.Cells(0).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      _medicalViewer.Cells(0).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale) 
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData) 
      _medicalViewer.Cells(0).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView) 
 
 
       
      _image = _codecs.Load(LeadtoolsExamples.Common.ImagesPath.Path + "mr.dcm") 
      _medicalViewer.Cells.Add(New MedicalViewerCell(_image, True, 2, 2)) 
 
       
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448") 
      _medicalViewer.Cells(1).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      _medicalViewer.Cells(1).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale) 
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData) 
      _medicalViewer.Cells(1).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView) 
 
 
      RasterCodecs.Shutdown() 
      Controls.Add(_medicalViewer) 
   End Sub 
   Public ReadOnly Property Viewer() As MedicalViewer 
      Get 
         Return _medicalViewer 
      End Get 
   End Property 
End Class 
 
Private Function GetMedicalControl6() As MedicalViewerForm6 
   Return New MedicalViewerForm6() 
End Function 
 
 
 
Public Sub MedicalViewerPointToImageExample() 
   Dim myForm As MedicalViewerForm6 = GetMedicalControl6() 
   Dim medicalViewer As MedicalViewer = myForm.Viewer 
 
   AddHandler medicalViewer.CellMouseDown, AddressOf medicalViewer_CellMouseDown 
 
   myForm.ShowDialog() 
End Sub 
 
Private Sub medicalViewer_CellMouseDown(ByVal sender As Object, ByVal e As MedicalViewerCellMouseEventArgs) 
   Dim viewer As MedicalViewer = CType(sender, MedicalViewer) 
   Dim point As Point 
 
   viewer.Cells(e.CellIndex).Image.Page = e.SubCellIndex + 1 
   point = viewer.Cells(e.CellIndex).PointToImage(New Point(e.X, e.Y)) 
   viewer.Cells(e.CellIndex).Image.SetPixelColor(point.Y, point.X, New RasterColor(255, 255, 255)) 
   viewer.Cells(e.CellIndex).Invalidate() 
End Sub |