GetPresentationAbstract Example for Visual Basic

    Dim x As Long
    Dim out$
    Dim result As String
    Dim nID As Integer
    
    'create the Associate Class as Request
    LEADDICOMNet1.CreateAssociate True
    'set the Associate to the default
    LEADDICOMNet1.DefaultAssociate LEADDICOMNet1.hPDU

    'get abstracts for each Presentation Context
    out$ = ""
    For x = 0 To LEADDICOMNet1.GetPresentationCount (LEADDICOMNet1.hPDU) - 1
        nID = LEADDICOMNet1.GetPresentationID (LEADDICOMNet1.hPDU, x)
        result = LEADDICOMNet1.GetPresentationAbstract (LEADDICOMNet1.hPDU, nID)
        out$ = out$ & result
        out$ = out$ & Chr(13)
    Next
    MsgBox out$

    'change the abstracts
    For x = 0 To LEADDICOMNet1.GetPresentationCount (LEADDICOMNet1.hPDU) - 1
        nID = LEADDICOMNet1.GetPresentationID (LEADDICOMNet1.hPDU, x)
        LEADDICOMNet1.SetPresentationAbstract LEADDICOMNet1.hPDU, nID, UID_CR_IMAGE_STORAGE
    Next
    
    'redisplay
    out$ = ""
    For x = 0 To LEADDICOMNet1.GetPresentationCount (LEADDICOMNet1.hPDU) - 1
        nID = LEADDICOMNet1.GetPresentationID (LEADDICOMNet1.hPDU, x)
        out$ = out$ & LEADDICOMNet1.GetPresentationAbstract (LEADDICOMNet1.hPDU, nID)
        out$ = out$ & Chr(13)
    Next
    MsgBox out$
    
    LEADDICOMNet1.FreeAssociate LEADDICOMNet1.hPDU