ISProfile.LoadServicesByFilter

Description

This function returns the services loaded on the basis of the selected filter.

Syntax

object.LoadServicesByFilter(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISServicesFilter	The object that defines conditions for filtering

Return Value

ISList

Returns the services loaded on the basis of the selected filter.

Example

Display the number of the services loaded on the basis of the selected filter and their descriptions.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)
  aMessage = aMessage & vbNewLine & "The description of the service is " &_
    aService.Description 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Services can be found in Maintain > Services.

Version information