Kofax DM API Instrukcja Użytkownika Pobierz pdf (Strona 112)

92 CHAPTER 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())

1 2 ... 107 108 109 110 111 112 113 114 115 116 117 ... 527 528

Komentarze do niniejszej Instrukcji

Brak uwag