GetPage Method

'Declaration
 
Public Function GetPage( _
   ByVal pageIndex As Integer _
) As RasterImage

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