Kofax DM API Manuel d'utilisateur télécharger pdf (Page 93)

DM API OBJECTS 73

PCDNetworkInfo

'Pre-select the first item in the list.

lstDomainUserList.ListIndex = 0

End If

End If

End Sub

Private Sub lstDomains_Click()

Dim nResult As Long

Dim nNumRows As Long

'Clear listbox for results of this call.

lstDomainUserList.Clear

'Fill the UserList with Users within this list.

nResult = oNWInfo.GetUserList("%NI_NT", _

lstDomains.Text)

nNumRows = 0

'Get the number of rows that are returned.

If nResult = 0 Then

nNumRows = oNWInfo.GetRowCount()

End If

'Display users in the lstDomainUsers listbox

If nNumRows = 0 Then

MsgBox "User information for this domain “ _

& “is not available to you."

Else

For i = 1 To nNumRows

nResult = oNWInfo.NextRow()

lstDomainUserList.AddItem( _

oNWInfo.GetValue())

Next i

1 2 ... 88 89 90 91 92 93 94 95 96 97 98 ... 527 528

Commentaires sur ces manuels

Pas de commentaire