This function creates the filter for loading services.
object.CreateServicesFilter()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the services loaded on the basis of the selected filter and their codes.
Dim aFilter
Dim aServices
Dim aService
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 code of the service is " &_
aService.Code
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Services can be found in .