Imports Leadtools
Imports Leadtools.Dicom
Private Sub TestVRTable()
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
'We don't need to call this since the DicomEngine.Startup already does that for us
'These calls are for demonstration purposes only
DicomVRTable.Instance.Reset()
DicomVRTable.Instance.Default()
'We can also call FindByIndex if we know the index of this VR
Dim vr As DicomVR = DicomVRTable.Instance.Find(DicomVRType.AE)
DicomVRTable.Instance.Delete(vr)
Dim vr1 As DicomVR = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1)
Debug.Assert(DicomVRTable.Instance.Exists(vr1) = True)
DicomVRTable.Instance.SetName(vr1, "My New AE VR")
Dim count As Integer = 0
'If we want to loop through all the VRs in the table we can do this:
vr = DicomVRTable.Instance.GetFirst()
Do While Not vr Is Nothing
' We can also access the rest of the properties of DicomVR in here,
' such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
' DicomVRType.Restriction and DicomVRType.UnitSize
If vr.Code = DicomVRType.AE Then
MessageBox.Show(vr.Name)
End If
count += 1
vr = DicomVRTable.Instance.GetNext(vr)
Loop
'We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count = DicomVRTable.Instance.GetCount())
DicomEngine.Shutdown()
End Sub
using Leadtools;
using Leadtools.Dicom;
public void TestVRTable()
{
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
//We don't need to call this since the DicomEngine.Startup already does that for us
//These calls are for demonstration purposes only
DicomVRTable.Instance.Reset();
DicomVRTable.Instance.Default();
//We can also call FindByIndex if we know the index of this VR
DicomVR vr = DicomVRTable.Instance.Find(DicomVRType.AE);
DicomVRTable.Instance.Delete(vr);
DicomVR vr1 = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1);
Debug.Assert(DicomVRTable.Instance.Exists(vr1) == true);
DicomVRTable.Instance.SetName(vr1, "My New AE VR");
int count = 0;
//If we want to loop through all the VRs in the table we can do this:
vr = DicomVRTable.Instance.GetFirst();
while (vr != null)
{
// We can also access the rest of the properties of DicomVR in here,
// such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
// DicomVRType.Restriction and DicomVRType.UnitSize
if (vr.Code == DicomVRType.AE)
{
MessageBox.Show(vr.Name);
}
count++;
vr = DicomVRTable.Instance.GetNext(vr);
}
//We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count == DicomVRTable.Instance.GetCount());
DicomEngine.Shutdown();
}
using Leadtools;
using Leadtools.Dicom;
using Leadtools.Examples;
public void TestVRTable()
{
//Make sure to initialize the DICOM engine, this needs to be done only once
//In the whole application
DicomEngine.Startup();
//We don't need to call this since the DicomEngine.Startup already does that for us
//These calls are for demonstration purposes only
DicomVRTable.Instance.Reset();
DicomVRTable.Instance.Default();
//We can also call FindByIndex if we know the index of this VR
DicomVR vr = DicomVRTable.Instance.Find(DicomVRType.AE);
DicomVRTable.Instance.Delete(vr);
DicomVR vr1 = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1);
Debug.Assert(DicomVRTable.Instance.Exists(vr1) == true);
DicomVRTable.Instance.SetName(vr1, "My New AE VR");
int count = 0;
//If we want to loop through all the VRs in the table we can do this:
vr = DicomVRTable.Instance.GetFirst();
while (vr != null)
{
// We can also access the rest of the properties of DicomVR in here,
// such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
// DicomVRType.Restriction and DicomVRType.UnitSize
if (vr.Code == DicomVRType.AE)
{
Debug.WriteLine(vr.Name);
}
count++;
vr = DicomVRTable.Instance.GetNext(vr);
}
//We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count == DicomVRTable.Instance.GetCount());
DicomEngine.Shutdown();
}
Imports Leadtools
Imports Leadtools.Dicom
Public Sub TestVRTable()
'Make sure to initialize the DICOM engine, this needs to be done only once
'In the whole application
DicomEngine.Startup()
'We don't need to call this since the DicomEngine.Startup already does that for us
'These calls are for demonstration purposes only
DicomVRTable.Instance.Reset()
DicomVRTable.Instance.Default()
'We can also call FindByIndex if we know the index of this VR
Dim vr As DicomVR = DicomVRTable.Instance.Find(DicomVRType.AE)
DicomVRTable.Instance.Delete(vr)
Dim vr1 As DicomVR = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1)
Debug.Assert(DicomVRTable.Instance.Exists(vr1) = True)
DicomVRTable.Instance.SetName(vr1, "My New AE VR")
Dim count As Integer = 0
'If we want to loop through all the VRs in the table we can do this:
vr = DicomVRTable.Instance.GetFirst()
Do While Not vr Is Nothing
' We can also access the rest of the properties of DicomVR in here,
' such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
' DicomVRType.Restriction and DicomVRType.UnitSize
If vr.Code = DicomVRType.AE Then
Debug.WriteLine(vr.Name)
End If
count += 1
vr = DicomVRTable.Instance.GetNext(vr)
Loop
'We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count = DicomVRTable.Instance.GetCount())
DicomEngine.Shutdown()
End Sub