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

DM API OBJECTS 79

PCDNetworkInfo

Dim sMember As String

Dim nNumRows As Long

'Retrieve the GroupMembers from the network

nResult = oMembers.GetGroupMembers( _

"%NI_NT", sDomainName, sGroupName)

If nResult = 0 Then

'Get the Group members.

nNumRows = oMembers.GetRowCount()

If nNumRows = 0 Then

MsgBox "No access to Members for this group."

Else

'Place all of the members of this group

'in the ListBox.

For i = 1 To nNumRows

nResult = oMembers.NextRow()

lstMembers.AddItem (oMembers.GetValue())

Next i

'Select the first member in the list.

lstMembers.ListIndex = 0

End If

Else

'No members in this group.

lstMembers.AddItem sDomainName + "No Members"

End If

nFirstTime = 1

End Sub

Private Sub lstMembers_Click()

Dim nResult As Long

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

Komentarze do niniejszej Instrukcji

Brak uwag