GetTag Method (MedicalViewerBaseCell)

'Declaration
 
Public Function GetTag( _
   ByVal row As Integer, _
   ByVal alignment As MedicalViewerTagAlignment _
) As MedicalViewerTagInformation

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

   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