Kofax DM API - Manual (Page 105)

DM API O BJECTS 85
PCDPropertyList
End Sub
Private Sub cbListProperties_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=ListForm.oListFormProps. AddProperty ( _
oGlobalPropertyList. GetCurrentPropertyName (),
oGlobalPropertyList. GetCurrentPropertyValue ())
Next i
ListForm.Show
End Sub
Private Sub cbQuit_Click()
Unload BaseForm
End Sub
Private Sub cbSearch_Click()
Dim nTotalElements As Integer
Dim nResult As Long
nTotalElements = oGlobalPropertyList. GetSize
MsgBox "The Total number of elements in the “ _
& “PCDPropertyList - " + Str(nTotalElements)
nResult = oGlobalPropertyList. BeginIter ()