Pcdpropertylist – Kofax DM API User Manual

Page 104

Advertising
background image

84

C

HAPTER

3

PCDPropertyList

Example

The following example shows how you can incorporate the
functionality of the GetPropertyList object into an application.

Public oGlobalPropertyList As New

PCDPropertyList


Private Sub cbDelete_Click()

Dim nResult As Long

Dim nTotalElements As Integer

nTotalElements = oGlobalPropertyList.

GetSize

MsgBox "The Total number of elements in the “ _

& “PCDPropertyList - " + Str(nTotalElements)

For i = 1 To nTotalElements

nResult=oGlobalPropertyList.

NextProperty

()

nResult=DeleteForm.oDeleteProp.

AddProperty

( _

oGlobalPropertyList.

GetCurrentPropertyName

(),

oGlobalPropertyList.

GetCurrentPropertyValue

())

Next i

DeleteForm.Show

Advertising