GetScale(Int32) Method

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MedicalViewer

Private Class MedicalViewerForm : Inherits Form
   Private _medicalViewer As MedicalViewer
   Private applyEffects As Button
   Private Sub MedicalViewerForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right - 30, Me.ClientRectangle.Bottom)
   End Sub

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

      AddHandler SizeChanged, AddressOf MedicalViewerForm_SizeChanged

      ' Create the medical viewer and adjust the size and the location.
      _medicalViewer = New MedicalViewer(1, 2)
      _medicalViewer.Location = New Point(30, 0)
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right - 30, Me.ClientRectangle.Bottom)

      ' Load an image and then add it to the control.
      _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm"))
      Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(_image, True, 1, 1)
      _medicalViewer.Cells.Add(cell)

      ' add some actions that will be used to change the properties of the images inside the control.
      cell.AddAction(MedicalViewerActionType.WindowLevel)
      cell.AddAction(MedicalViewerActionType.Alpha)
      cell.AddAction(MedicalViewerActionType.Offset)

      ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated.
      cell.SetAction(MedicalViewerActionType.WindowLevel, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)
      cell.SetAction(MedicalViewerActionType.Alpha, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active)
      cell.SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)

      ' adjust some properties of the cell and add some tags.
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448")
      _medicalViewer.Cells(0).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
      _medicalViewer.Cells(0).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale)
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData)
      _medicalViewer.Cells(0).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView)

      ' Load another image and then add it to the control.
      _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "mr.dcm"))
      _medicalViewer.Cells.Add(New MedicalViewerMultiCell(_image, True, 2, 2))

      ' adjust some properties of the cell and add some tags.
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448")
      _medicalViewer.Cells(1).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
      _medicalViewer.Cells(1).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale)
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData)
      _medicalViewer.Cells(1).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView)


      applyEffects = New Button()
      applyEffects.Location = New Point(0, 0)
      applyEffects.Size = New Size(30, 15)
      applyEffects.Text = "Apply Effects"
      AddHandler applyEffects.Click, AddressOf applyEffects_Click

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

   Private Sub applyEffects_Click(ByVal sender As Object, ByVal e As EventArgs)
      Dim medicalViewer As MedicalViewer = CType(_medicalViewer, MedicalViewer)
      Dim cell As MedicalViewerMultiCell = CType(medicalViewer.Cells(0), MedicalViewerMultiCell)
      Dim cell1 As MedicalViewerMultiCell = CType(medicalViewer.Cells(1), MedicalViewerMultiCell)

      Dim result As DialogResult = MessageBox.Show("This demo will do some effects on the Medical viewer, Do you want to use the begin and update update?", "Begin Update And End Update Demo", MessageBoxButtons.YesNo)

      If result = DialogResult.Yes Then
         medicalViewer.BeginUpdate()
      End If

      cell.SetTag(8, 0, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "Sub Cell Tag 1")
      cell.SetTag(0, 8, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "Sub Cell Tag 2")
      cell1.SetTag(1, 9, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "Sub Cell Tag 3")
      cell1.SetTag(2, 10, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "Sub Cell Tag 4")
      cell1.SetTag(3, 11, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "Sub Cell Tag 5")

      cell.Rows = 3
      cell.Columns = 3
      cell.FitImageToCell = False



      Dim tagInformation As MedicalViewerTagInformation = New MedicalViewerTagInformation()

      tagInformation.Alignment = MedicalViewerTagAlignment.BottomLeft
      tagInformation.Position = 3
      tagInformation.Text = "Edit Text 1"


      cell.EditTag(8, 0, MedicalViewerTagAlignment.TopLeft, tagInformation)


      tagInformation = New MedicalViewerTagInformation()
      tagInformation.Type = MedicalViewerTagType.Scale

      cell.EditTag(8, 0, MedicalViewerTagAlignment.BottomLeft, tagInformation)


      cell.DeleteTag(0, 8, MedicalViewerTagAlignment.TopLeft)

      ' Shift the second row, one row down
      tagInformation = cell.GetTag(2, 10, MedicalViewerTagAlignment.TopLeft)

      tagInformation.Position += 1

      cell.EditTag(2, 10, MedicalViewerTagAlignment.TopLeft, tagInformation)

      ' Shift the second row, one row down
      tagInformation = cell.GetTag(2, MedicalViewerTagAlignment.TopLeft)

      tagInformation.Text = "Edited sub-cell Tag1"
      cell.EditTag(2, MedicalViewerTagAlignment.TopLeft, tagInformation)

      cell.DeleteTag(4, MedicalViewerTagAlignment.TopLeft)

      Dim windowLevelProperties As MedicalViewerWindowLevel = CType(cell.GetActionProperties(MedicalViewerActionType.WindowLevel, 0), MedicalViewerWindowLevel)

      windowLevelProperties.Width = 20
      windowLevelProperties.Center = 50

      cell.SetActionProperties(MedicalViewerActionType.WindowLevel, windowLevelProperties)


      Dim scale As Double = cell.GetScale(0)

      scale *= 2

      cell.SetScale(-1, scale)

      cell1.SetScale(0, scale)

      Dim scaleMode As MedicalViewerScaleMode = cell.GetScaleMode(0)

      If scaleMode = MedicalViewerScaleMode.Normal Then
         scaleMode = MedicalViewerScaleMode.Fit
      Else
         scaleMode = MedicalViewerScaleMode.Normal
      End If

      cell.SetScaleMode(scaleMode)

      If result = DialogResult.Yes Then
         medicalViewer.EndUpdate()
      End If

   End Sub

   Public ReadOnly Property Viewer() As MedicalViewer
      Get
         Return _medicalViewer
      End Get
   End Property
End Class

Private Function GetMedicalControl() As MedicalViewerForm
   Return New MedicalViewerForm()
End Function

' This example creates a medical viewer control and two cells. when you click on the button it will ask you whether to apply some effects on the cell with or without using BeginUpdate/EndUpdate. Run this sample twice and see the difference
<TestMethod()> _
Public Sub MedicalViewerTagInformationExample()
   Dim myForm As MedicalViewerForm = GetMedicalControl()
   Dim medicalViewer As MedicalViewer = myForm.Viewer

   myForm.ShowDialog()
End Sub

Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class