ShowSlabBoundaries Property

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 
 
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. 
<TestMethod()> _ 
Public Sub MedicalViewerSlabExample() 
   Dim myForm As MedicalViewerSlabForm = GetMedicalViewerSlabForm() 
   Dim medicalViewer As MedicalViewer = myForm.Viewer 
 
   myForm.ShowDialog() 
End Sub