MedicalViewerMPRCell Class

Imports Leadtools 
Imports Leadtools.Dicom 
Imports Leadtools.Medical3D 
Imports Leadtools.Codecs 
Imports Leadtools.MedicalViewer 
Imports Leadtools.Annotations.Engine 
Imports Leadtools.Annotations.Designers 
Imports Leadtools.ImageProcessing.Core 
 
Private Class MedicalViewerMPRForm : Inherits Form 
   Private _medicalViewer As MedicalViewer 
   Private _seriesManager As MedicalViewerSeriesManager 
 
   Private Sub MedicalViewerMPRForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom) 
   End Sub 
 
   Public Sub New(ByVal output As MedicalViewerSeriesManager) 
      Dim _codecs As RasterCodecs = New RasterCodecs() 
 
      AddHandler SizeChanged, AddressOf MedicalViewerMPRForm_SizeChanged 
 
      ' Create the medical viewer and adjust the size and the location. 
      _medicalViewer = New MedicalViewer(2, 2) 
      _medicalViewer.Location = New Point(0, 0) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom) 
 
      _seriesManager = output 
 
      Dim index As Integer 
      Dim image As RasterImage 
      Dim count As Integer = output.Stacks(0).Items.Count 
      Dim codecsInformation As CodecsImageInfo 
 
      Dim AxialFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell() 
      Dim SagittalFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell() 
      Dim CoronalFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell() 
 
      codecsInformation = _codecs.GetInformation(CStr(output.Stacks(0).Items(0).Data), True) 
 
      Dim width As Integer = codecsInformation.Width 
      Dim height As Integer = codecsInformation.Height 
      Dim depth As Integer = 256 
 
      ' Create a 3D control. 
      Dim _medical3DControl As Medical3DControl = New Medical3DControl() 
 
      _medical3DControl.ObjectsContainer.VolumeType = Medical3DVolumeType.MPR 
      _medical3DControl.ObjectsContainer.Objects.Add(New Medical3DObject()) 
 
      ' Create a 3D object. 
 
      _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientInit(depth) 
 
      index = 0 
      Do While index < depth 
         image = _codecs.Load(CStr(output.Stacks(0).Items(index).Data), 0, CodecsLoadByteOrder.BgrOrGrayOrRomm, 1, 1) 
         _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientSetFrame(image, index, True) 
         index += 1 
      Loop 
 
      Dim spearator As String = ("\") 
      Dim test As String() = output.Stacks(0).Items(0).ImageOrientation.Split(spearator.ToCharArray()) 
      Dim orientation As Single() = New Single(5) {} 
      Dim i As Integer 
      For i = 0 To 5 
         orientation(i) = CSng(Convert.ToDouble(test(i))) 
      Next i 
 
      _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientEnd(orientation, output.Stacks(0).PixelSpacing) 
 
      ' Create axial frame 
      AxialFrame.ShowMPRCrossHair = True 
      AxialFrame.DistinguishMPRByColor = True 
      AxialFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      AxialFrame.AddAction(MedicalViewerActionType.Stack) 
      AxialFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active) 
 
 
      ' Create Sagittal frame 
      SagittalFrame.ShowMPRCrossHair = True 
      SagittalFrame.DistinguishMPRByColor = True 
      SagittalFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      SagittalFrame.AddAction(MedicalViewerActionType.Stack) 
      SagittalFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active) 
 
      ' Create coronal frame 
      CoronalFrame.ShowMPRCrossHair = True 
      CoronalFrame.DistinguishMPRByColor = True 
      CoronalFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      CoronalFrame.AddAction(MedicalViewerActionType.Stack) 
      CoronalFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active) 
 
      ' attach the MPR cells to the 3D control 
      _medical3DControl.AxialFrame = AxialFrame 
      _medical3DControl.SagittalFrame = SagittalFrame 
      _medical3DControl.CoronalFrame = CoronalFrame 
 
 
      AxialFrame.AxialName = "Axial Cell" 
      SagittalFrame.SagittalName = "Sagittal Cell" 
      CoronalFrame.CoronalName = "Coronal Cell" 
 
      AxialFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType) 
      SagittalFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType) 
      CoronalFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType) 
 
      ' with this option, you will not be able to select more than one cell at the same time. (selecting multiple cells are done with the pressing and holding the Ctrl and clicking on cell) 
      _medicalViewer.AllowMultipleSelection = False 
 
      _medicalViewer.Cells.Add(_medical3DControl) 
      _medicalViewer.Cells.Add(AxialFrame) 
      _medicalViewer.Cells.Add(SagittalFrame) 
      _medicalViewer.Cells.Add(CoronalFrame) 
 
      Controls.Add(_medicalViewer) 
      _medicalViewer.Dock = DockStyle.Fill 
   End Sub 
 
   ' This event handles communication between the 3D and the MedicalViewer. 
   Private Sub cell_Data3DRequested(ByVal sender As Object, ByVal e As MedicalViewerData3DRequestedEventArgs) 
      e.Succeed = Medical3DEngine.Provide3DInformation(e) 
   End Sub 
 
   Private Sub cell_FramesRequested(ByVal sender As Object, ByVal e As MedicalViewerRequestedFramesInformationEventArgs) 
      Dim cell As MedicalViewerMultiCell = CType(sender, MedicalViewerMultiCell) 
      Dim _codecs As RasterCodecs = New RasterCodecs() 
      Dim i As Integer 
      Dim image As RasterImage 
      Dim fileName As String 
 
      If e.RequestedFramesIndexes.Length > 0 Then 
         fileName = CStr(_seriesManager.Stacks(0).Items(e.RequestedFramesIndexes(0)).Data) 
         image = _codecs.Load(fileName) 
      Else 
         Return 
      End If 
 
      i = 1 
      Do While i < e.RequestedFramesIndexes.Length 
         fileName = CStr(_seriesManager.Stacks(0).Items(e.RequestedFramesIndexes(i)).Data) 
         image.AddPage(_codecs.Load(fileName)) 
         i += 1 
      Loop 
 
      cell.SetRequestedImage(image, e.RequestedFramesIndexes, MedicalViewerSetImageOptions.Insert) 
   End Sub 
 
   Public ReadOnly Property Viewer() As MedicalViewer 
      Get 
         Return _medicalViewer 
      End Get 
   End Property 
End Class 
 
Private Function GetMedicalViewerMPRForm() As MedicalViewerMPRForm 
   Dim form As MedicalViewerSeriesManagerFrom = New MedicalViewerSeriesManagerFrom() 
   Dim output As MedicalViewerSeriesManager = form.LoadJamesHead() 
 
   Return New MedicalViewerMPRForm(output) 
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. 
<TestMethod()> _ 
Public Sub MedicalViewerMPRExample() 
   Dim myForm As MedicalViewerMPRForm = GetMedicalViewerMPRForm() 
   Dim medicalViewer As MedicalViewer = myForm.Viewer 
 
   myForm.ShowDialog() 
End Sub