GetPage Method

Imports Leadtools
Imports Leadtools.Dicom
Imports Leadtools.Medical3D
Imports Leadtools.Codecs
Imports Leadtools.MedicalViewer
Imports Leadtools.Annotations.Core
Imports Leadtools.Annotations.Designers
Imports Leadtools.ImageProcessing.Core

<TestMethod()> _
Public Sub Medical3DGetPageExample()
   Dim LoadObject As MedicalViewerSeriesManagerFrom = New MedicalViewerSeriesManagerFrom()
   Dim output As MedicalViewerSeriesManager = LoadObject.LoadJamesHead()
   Dim form As GetPageForm = New GetPageForm(output)
   form.ShowDialog()
End Sub

' GetPageForm will be the owner of the medical viewer control.
Public Class GetPageForm : Inherits Form
   Private _medical3DControl As Medical3DControl
   Private _axial As MedicalViewerMPRCell
   Private _coronal As MedicalViewerMPRCell
   Private _saggital As MedicalViewerMPRCell

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

      Dim codecsInformation As CodecsImageInfo

      _medical3DControl = New Medical3DControl()
      AddHandler SizeChanged, AddressOf GetPageForm_SizeChanged
      AddHandler FormClosing, AddressOf GetPageForm_FormClosing

      _medical3DControl.ObjectsContainer.Objects.Add(New Medical3DObject())

      Dim index As Integer

      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

      _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, output.Stacks(0).Items(index).ImagePosition, 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)


      _axial = New MedicalViewerMPRCell()
      _coronal = New MedicalViewerMPRCell()
      _saggital = New MedicalViewerMPRCell()


      ' set Medical 3DControl to viewer cell
      _medical3DControl.AxialFrame = _axial
      _medical3DControl.SagittalFrame = _saggital
      _medical3DControl.CoronalFrame = _coronal

      _axial.AxialName = "Axial Cell"
      _saggital.SagittalName = "Sagittal Cell"
      _coronal.CoronalName = "Coronal Cell"

      _axial.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)
      _saggital.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)
      _coronal.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)


      ' Fit image to cell
      _axial.FitImageToCell = True
      _saggital.FitImageToCell = True
      _coronal.FitImageToCell = True

      ' Show Cross hair lines
      _axial.ShowMPRCrossHair = True
      _saggital.ShowMPRCrossHair = True
      _coronal.ShowMPRCrossHair = True

      ' Show cell boundaries
      _axial.ShowCellBoundaries = True
      _saggital.ShowCellBoundaries = True
      _coronal.ShowCellBoundaries = True

      ' Enable slab option
      _medical3DControl.ObjectsContainer.Objects(0).Slab.Enabled = True

      _axial.ShowSlabBoundaries = True
      _saggital.ShowSlabBoundaries = True
      _coronal.ShowSlabBoundaries = True

      ' invert the axial image
      '_axial.InvertImage();

      '_medical3DControl.ApplyWindowLevelOnAllCells = true;

      _medical3DControl.AddAction(MedicalViewerActionType.Rotate3DObject)
      _medical3DControl.SetAction(MedicalViewerActionType.Rotate3DObject, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)

      _medical3DControl.AddAction(MedicalViewerActionType.WindowLevel)
      _medical3DControl.SetAction(MedicalViewerActionType.WindowLevel, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)

      Me.Controls.Add(_medical3DControl)
      Me.Controls.Add(_axial)
      Me.Controls.Add(_coronal)
      Me.Controls.Add(_saggital)

      Dim pageCount As Integer = _saggital.PageCount
      Dim image As RasterImage = Nothing

      index = 0
      Do While index < pageCount
         image = _saggital.GetPage(index)
         _codecs.Save(image, "D:\test" & index.ToString() & ".bmp", RasterImageFormat.Bmp, 24)
         image.Dispose()
         index += 1
      Loop

      MessageBox.Show("Frames Saved")
   End Sub

   Private Sub GetPageForm_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
      _medical3DControl.Dispose()
   End Sub

   Private Sub GetPageForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
      If Not _medical3DControl Is Nothing Then
         _medical3DControl.Size = New Size(Me.ClientRectangle.Right \ 2, Me.ClientRectangle.Bottom \ 2)
      End If

      If Not _axial Is Nothing Then
         _axial.Size = New Size(Me.ClientRectangle.Right \ 2, Me.ClientRectangle.Bottom \ 2)
      End If

      If Not _saggital Is Nothing Then
         _saggital.Size = New Size(Me.ClientRectangle.Right \ 2, Me.ClientRectangle.Bottom \ 2)
      End If

      If Not _coronal Is Nothing Then
         _coronal.Size = New Size(Me.ClientRectangle.Right \ 2, Me.ClientRectangle.Bottom \ 2)
      End If

      _axial.Location = New Point(Me.ClientRectangle.Right \ 2, 0)
      _saggital.Location = New Point(0, Me.ClientRectangle.Bottom \ 2)
      _coronal.Location = New Point(Me.ClientRectangle.Right \ 2, Me.ClientRectangle.Bottom \ 2)
   End Sub
End Class