This function returns the service by the specified code.
object.LoadService(aCode)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aCode |
In, Required | string |
The code of the service |
Display the description and ID of the service.
Dim aCode
Dim aService
Dim aMessage
aCode = "11Y POL"
Set aService = Profile.LoadService(aCode)
if aService is nothing then
aMessage = "There is no service with the specified code"
else
aMessage = "The service '" & aService.Description & "' has ID = " & aService.ID
end if
Profile.MsgBox(aMessage)In Profile Client v8 on User Interface Service can be found in .