GetLongValue Example for VB.NET
'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "Text1" of type "TextBox" from ".NET Framework".
Private Sub TestGetLongValue()
Dim lCount As Integer
Dim x As Integer
Dim nRet As Short
LEADDICOM1.EnableMethodErrors = False
'move to the root element
LEADDICOM1.MoveFirstElement(False)
LEADDICOM1.MoveRootElement()
'insert a new element for the Long Values
LEADDICOM1.InsertElement(False, LTDICLib.DicomDataSetTagConstants1.TAG_OFFSET_FIRST_ROOT_DIRECTORY, LTDICLib.DicomVRCodeConstants.VR_UL, False, 0)
Text1.Visible = True
Text1.Text = ""
'insert some long values into the element
LEADDICOM1.LongValueCount = 5
For x = 0 To 5 - 1
LEADDICOM1.LongValues(x) = x * 100000
Next
'set the longs
nRet = LEADDICOM1.SetLongValue(5)
If (nRet <> 0) Then
MessageBox.Show("Error")
Exit Sub
End If
LEADDICOM1.LongValueCount = 0 'free the values
'get the value count
lCount = LEADDICOM1.GetValueCount
MessageBox.Show("There are " & CStr(lCount) & " values!")
'get the values
nRet = LEADDICOM1.GetLongValue(0, lCount)
If (nRet = 0) Then
For x = 0 To LEADDICOM1.LongValueCount - 1
'display each value separated by a " X "
Text1.Text = Text1.Text & " X " & CStr(LEADDICOM1.LongValues(x))
Next
End If
LEADDICOM1.EnableMethodErrors = True
MessageBox.Show("wait")
End Sub