Imports Leadtools
Imports Leadtools.Dicom
Private Sub TestTagTable()
'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
DicomTagTable.Instance.Reset()
DicomTagTable.Instance.Default()
'We can also call FindByIndex if we know the index of this Tag
Dim tag As DicomTag = DicomTagTable.Instance.Find(DicomTag.PatientName)
DicomTagTable.Instance.Delete(tag)
Dim tag1 As DicomTag = DicomTagTable.Instance.Insert(DicomTag.PatientName, &HFFFFFFFFL, "Patient's Name", DicomVRType.PN, 1, 1, 1)
Debug.Assert(DicomTagTable.Instance.Exists(tag1) = True)
Console.WriteLine("Tag Information:")
Console.WriteLine("code is: {0}", tag1.ToHexString())
Console.WriteLine("VR is : {0}", tag1.VR)
Console.WriteLine("MinVM is : {0}", tag1.MinVM)
Console.WriteLine("MaxVM is : {0}", tag1.MaxVM)
Console.WriteLine("VMDivider is : {0}", tag1.VMDivider)
DicomTagTable.Instance.SetName(tag1, "Patient's Name 1")
Dim count As Integer = 0
'If we want to loop through all the Tags in the table we can do this:
tag = DicomTagTable.Instance.GetFirst()
Do While Not tag Is Nothing
' We can also access the rest of the properties of DicomTag in here,
' such as DicomTagType.Code, DicomTagType.Name, DicomTagType.Mask
If tag.Code = DicomTag.PatientName Then
MessageBox.Show(tag.Name)
End If
count += 1
tag = DicomTagTable.Instance.GetNext(tag)
Loop
'We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count = DicomTagTable.Instance.GetCount())
DicomEngine.Shutdown()
End Sub
using Leadtools;
using Leadtools.Dicom;
public void TestTagTable()
{
//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
DicomTagTable.Instance.Reset();
DicomTagTable.Instance.Default();
//We can also call FindByIndex if we know the index of this Tag
DicomTag tag = DicomTagTable.Instance.Find(DicomTag.PatientName);
DicomTagTable.Instance.Delete(tag);
DicomTag tag1 = DicomTagTable.Instance.Insert(DicomTag.PatientName, 0xFFFFFFFF, "Patient's Name", DicomVRType.PN, 1, 1, 1);
Console.WriteLine("Tag Information:");
Console.WriteLine("code is: {0}", tag1.ToHexString());
Console.WriteLine("VR is : {0}", tag1.VR);
Console.WriteLine("MinVM is : {0}", tag1.MinVM);
Console.WriteLine("MaxVM is : {0}", tag1.MaxVM);
Console.WriteLine("VMDivider is : {0}", tag1.VMDivider);
Debug.Assert(DicomTagTable.Instance.Exists(tag1) == true);
DicomTagTable.Instance.SetName(tag1, "Patient's Name 1");
int count = 0;
//If we want to loop through all the Tags in the table we can do this:
tag = DicomTagTable.Instance.GetFirst();
while (tag != null)
{
// We can also access the rest of the properties of DicomTag in here,
// such as DicomTagType.Code, DicomTagType.Name, DicomTagType.Mask
if (tag.Code == DicomTag.PatientName)
{
MessageBox.Show(tag.Name);
}
count++;
tag = DicomTagTable.Instance.GetNext(tag);
}
//We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count == DicomTagTable.Instance.GetCount());
DicomEngine.Shutdown();
}
using Leadtools;
using Leadtools.Dicom;
using Leadtools.Examples;
public void TestTagTable()
{
//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
DicomTagTable.Instance.Reset();
DicomTagTable.Instance.Default();
//We can also call FindByIndex if we know the index of this Tag
DicomTag tag = DicomTagTable.Instance.Find(DicomTag.PatientName);
DicomTagTable.Instance.Delete(tag);
DicomTag tag1 = DicomTagTable.Instance.Insert(DicomTag.PatientName, 0xFFFFFFFF, "Patient's Name", DicomVRType.PN, 1, 1, 1);
Debug.WriteLine("Tag Information:");
Debug.WriteLine("VR is : {0}", tag1.VR);
Debug.WriteLine("MinVM is : {0}", tag1.MinVM);
Debug.WriteLine("MaxVM is : {0}", tag1.MaxVM);
Debug.WriteLine("VMDivider is : {0}", tag1.VMDivider);
Debug.Assert(DicomTagTable.Instance.Exists(tag1) == true);
DicomTagTable.Instance.SetName(tag1, "Patient's Name 1");
int count = 0;
//If we want to loop through all the Tags in the table we can do this:
tag = DicomTagTable.Instance.GetFirst();
while (tag != null)
{
// We can also access the rest of the properties of DicomTag in here,
// such as DicomTagType.Code, DicomTagType.Name, DicomTagType.Mask
if (tag.Code == DicomTag.PatientName)
{
Debug.WriteLine(tag.Name);
}
count++;
tag = DicomTagTable.Instance.GetNext(tag);
}
//We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count == DicomTagTable.Instance.GetCount());
DicomEngine.Shutdown();
}
Imports Leadtools
Imports Leadtools.Dicom
Public Sub TestTagTable()
'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
DicomTagTable.Instance.Reset()
DicomTagTable.Instance.Default()
'We can also call FindByIndex if we know the index of this Tag
Dim tag As DicomTag = DicomTagTable.Instance.Find(DicomTag.PatientName)
DicomTagTable.Instance.Delete(tag)
Dim tag1 As DicomTag = DicomTagTable.Instance.Insert(DicomTag.PatientName, &HFFFFFFFFL, "Patient's Name", DicomVRType.PN, 1, 1, 1)
Debug.WriteLine("Tag Information:")
Debug.WriteLine("VR is : {0}", tag1.VR)
Debug.WriteLine("MinVM is : {0}", tag1.MinVM)
Debug.WriteLine("MaxVM is : {0}", tag1.MaxVM)
Debug.WriteLine("VMDivider is : {0}", tag1.VMDivider)
Debug.Assert(DicomTagTable.Instance.Exists(tag1) = True)
DicomTagTable.Instance.SetName(tag1, "Patient's Name 1")
Dim count As Integer = 0
'If we want to loop through all the Tags in the table we can do this:
tag = DicomTagTable.Instance.GetFirst()
Do While Not tag Is Nothing
' We can also access the rest of the properties of DicomTag in here,
' such as DicomTagType.Code, DicomTagType.Name, DicomTagType.Mask
If tag.Code = DicomTag.PatientName Then
Debug.WriteLine(tag.Name)
End If
count += 1
tag = DicomTagTable.Instance.GetNext(tag)
Loop
'We can use GetLast and GetPrevious to achieve the same thing
Debug.Assert(count = DicomTagTable.Instance.GetCount())
DicomEngine.Shutdown()
End Sub