beautypg.com

Pcdpropertylist – Kofax DM API User Manual

Page 114

background image

94

C

HAPTER

3

PCDPropertyList

Dim nResult As Long

Dim nIndex As Long

Dim nSize As Long

Dim sPropName As String

sPropName = txtPropertyName.Text

If sPropName = "None" Then

MsgBox "Please enter a property before ” _

& “trying to retrieve the index."

Else

nSize = oIndexFormProps.

GetSize

()

If nSize > 0 Then

nIndex = _

oIndexFormProps.

GetPropertyIndex

( _

sPropName)

If nIndex >= 0 And nIndex < nSize Then

txtPropertyIndex.Text = nIndex

Else

MsgBox "This is not a valid property “ _

& “or the property returned is out “ _

& “of range."

End If

Else

MsgBox "The PropertyList is empty."

End If

End If

End Sub

Related Items

See the following methods:

AddProperty
BeginIter
DeleteProperty
GetCurrentPropertyName
GetCurrentPropertyValue
GetPropertyIndex