Kofax DM API - Manual (Page 112)

92 C HAPTER 3
PCDPropertyList
'Determine number of rows in the PCDPropertyList.
nTotalRows = oDeleteProp. GetSize ()
If nTotalRows > 0 Then
'If there are rows in the Property list, get
'ready to retrieve properties from the list.
nResult = oDeleteProp. BeginIter ()
'Place the property names in the listbox.
For i = 1 To nTotalRows
lstProperties.AddItem( _
oDeleteProp. GetCurrentPropertyName ())
nResult = oDeleteProp. NextProperty ()
Next i
End If
lstProperties.ListIndex = 0
nActiveProperty = lstProperties.ListIndex
End Sub
Private Sub Form_Load()
Dim nResult As Long
Dim nTotalRows As Long
'Determine number of rows in the PCDPropertyList.
nTotalRows = oDeleteProp. GetSize ()
If nTotalRows > 0 Then
'If there are rows in the Property list, get
'ready to retrieve properties from the list.
nResult = oDeleteProp. BeginIter ()
'Place the property names in the listbox.
For i = 1 To nTotalRows
lstProperties.AddItem( _
oDeleteProp. GetCurrentPropertyName ())