FindPresentationAbstract Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestFindPresentationAbstract ( )
   Const UID_VERIFICATION_CLASS As String = "1.2.840.10008.1.1" ' Verification SOP Class

   Dim nID As Short
   Dim hPDU As Integer

   'get the associate object for this client computer's connection
   hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)

   'find the id for UID_VERIFICATION_CLASS within this association
   'if it is supported by the association
   nID = LEADDICOMNet1.FindPresentationAbstract(hPDU, UID_VERIFICATION_CLASS)
   If (nID = 0) Then
      MessageBox.Show("Not Supported by this association!")
   Else
      MessageBox.Show("Found: " & CStr(nID))
   End If

End Sub