Searching the Data Set for a Digital Signature Example for VB.NET
Sub FindSignature(ByRef objDS As LTDICLib.LEADDicomDS, ByRef
sSignatureUID As String)
' Search the whole Data Set for the Digital Signature with the
' specified Digital Signature UID
If objDS.FindSignature(sSignatureUID)
= False Then
MessageBox.Show("The Digital Signature was not found.", "Sample")
Exit Sub
End If
Dim sMsg As String
sMsg = "The Digital Signature was found." & vbNewLine &
"Press Yes to examine it or No to delete it."
Select Case MessageBox.Show(sMsg, "Sample", MessageBoxButtons.YesNoCancel)
Case DialogResult.Yes
' Refer to Examining a Digital Signature Example
' for the procedure ExamineSignature
ExamineSignature(objDS, objDS.CurrentElement.hElement)
Case DialogResult.No
' Delete the Digital Signature
objDS.DeleteSignature()
End Select
End Sub