Kofax DM API - Manual (Page 114)

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