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

80 CHAPTER 3

PCDNetworkInfo

Dim nNumRows As Long

'If program is now checking the top of Member

'list from the opening of the form...

If nFirstTime > 0 Then

'...Clear the Users Groups ListBox.

lstUsersGroups.Clear

'Retrieve the selected user’s full name.

nResult = oMembers.GetUserFullName( _

"%NI_NT", sDomainName, lstMembers.Text)

nResult = oMembers.NextRow()

txtFullName.Text = oMembers.GetValue()

'Retrieve all groups that include the

'selected user.

nResult = oMembers.GetUserGroups( _

"%NI_NT", sDomainName, lstMembers.Text)

If nResult = 0 Then

nNumRows = oMembers.GetRowCount()

If nNumRows > 0 Then

'Place all Groups that include this user

'into the UsersGroups ListBox.

For i = 1 To nNumRows

nResult = oMembers.NextRow()

lstUsersGroups.AddItem ( _

oMembers.GetValue())

Next i

Else

lstUsersGroups.AddItem lstMembers.Text _

& " is not a member of any groups."

End If

Else

lstUsersGroups.AddItem "Unable to “ _

1 2 ... 95 96 97 98 99 100 101 102 103 104 105 ... 527 528

Komentarze do niniejszej Instrukcji

Brak uwag