ShowSlabBoundaries Property

'Declaration
 
Public Property ShowSlabBoundaries As Boolean

Private Class MedicalViewerSlabForm : Inherits Form
    Private _medicalViewer As MedicalViewer
    Private _seriesManager As MedicalViewerSeriesManager
    Private Sub MedicalViewerSlabForm_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 MedicalViewerSlabForm_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 = 50

        ' A create on a 3D control
        Dim _medical3DControl As Medical3DControl = New Medical3DControl()

        _medical3DControl.ObjectsContainer.Objects.Add(New Medical3DObject())
        _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.ShowSlabBoundaries = 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.ShowSlabBoundaries = 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.ShowSlabBoundaries = 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

        _medicalViewer.AllowMultipleSelection = False

        _medicalViewer.Cells.Add(_medical3DControl)
        _medicalViewer.Cells.Add(AxialFrame)
        _medicalViewer.Cells.Add(SagittalFrame)
        _medicalViewer.Cells.Add(CoronalFrame)

        _medical3DControl.ObjectsContainer.Objects(0).Slab.Enabled = True
        _medical3DControl.ObjectsContainer.Objects(0).Slab.SetValues(-1, 0.5F, -1, 0.5F, -0.5F, 0.5F)


        Controls.Add(_medicalViewer)
        _medicalViewer.Dock = DockStyle.Fill
    End Sub

    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 GetMedicalViewerSlabForm() As MedicalViewerSlabForm
    Dim form As MedicalViewerSeriesManagerFrom = New MedicalViewerSeriesManagerFrom()
    Dim output As MedicalViewerSeriesManager = form.LoadJamesHead()

    Return New MedicalViewerSlabForm(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.

Public Sub MedicalViewerSlabExample()
    Dim myForm As MedicalViewerSlabForm = GetMedicalViewerSlabForm()
    Dim medicalViewer As MedicalViewer = myForm.Viewer

    myForm.ShowDialog()
End Sub