Kofax DM API Uživatelský manuál Strana 47

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 528
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 46
THE DM ARCHITECTURE 27
Document Objects
lngENum = PDoc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = PDoc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
PDoc.Update
'Check for error.
Dim lngENum As Long
lngENum = PDoc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = PDoc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
Set PDoc = Nothing
MsgBox "Trustee " & cboTrustees.Text & _
" has been added."
Exit Sub
'2) Add trustee to the trustees collection
' and update trustees.
PDoc.FetchTrustees
TrusteeList.AddTrustee cboTrustees.Text, _
2, Val(txtRights)
PDoc.SetTrustees TrusteeList
PDoc.UpdateTrustees
'Check for error.
Dim lngENum As Long
lngENum = PDoc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = PDoc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
Zobrazit stránku 46
1 2 ... 42 43 44 45 46 47 48 49 50 51 52 ... 527 528

Komentáře k této Příručce

Žádné komentáře