DicomEditableObject Class

Visual Basic
C#
Objective-C
Java
C++

public class DicomEditableObject : System.ComponentModel.IComponent, System.ComponentModel.ICustomTypeDescriptor, System.IDisposable

'Declaration
 
Public Class DicomEditableObject 
   Implements System.ComponentModel.IComponent, System.ComponentModel.ICustomTypeDescriptor, System.IDisposable

'Usage
 
Dim instance As DicomEditableObject

public ref class DicomEditableObject : public System.ComponentModel.IComponent, System.ComponentModel.ICustomTypeDescriptor, System.IDisposable

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

Imports Leadtools.Dicom.Common.DataTypes
Imports Leadtools.Dicom.Common.Extensions
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Common.Editing.Converters
Imports Leadtools.Dicom.Common.Editing

<Test> _
Public Sub TestEditableObject()
   Dim dcmObject As DicomEditableObject = New DicomEditableObject()
   Dim ds As DicomDataSet = Nothing
   Dim dicomFileNameIn As String = Path.Combine(LEAD_VARS.ImagesDir, "IMAGE2.dcm")

   DicomEngine.Startup()

   ds = New DicomDataSet()
   ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None)
      AddHandler dcmObject.BeforeAddElement, AddressOf dcmObject_BeforeAddElement
   dcmObject.DataSet = ds
   Console.WriteLine("Root Element Count: " & dcmObject.Elements.Count.ToString())

   '
   ' At this point the object can be assigned to a property grid.
   '
   DicomEngine.Shutdown()
End Sub

Private Sub dcmObject_BeforeAddElement(ByVal sender As Object, ByVal e As BeforeAddElementEventArgs)
   Console.WriteLine(e.Element.Name)
   Console.WriteLine(e.Element.DicomElement.VR.ToString())
End Sub


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

Target Platforms

Reference

DicomEditableObject Members
Leadtools.Dicom.Common.Editing Namespace