GetPage Method

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 
 
<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