This function adds a new area of interest to the provider.
object.AddAreaOfInterest
Value
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
|
Value |
In, Required | The short code of the area of interest |
Add a new area of interest to the provider and display its description.
Dim aFilter
Dim aProviders
Dim aProvider
Dim aShortCode
Dim aAreasInfo
Dim aAreaShortCode
Dim aAreasofInterest
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)
set aShortCode = Profile.LoadShortCodeByCodeType("HT", 106 ) 'sscAreasOfInterest
for each aProvider in aProviders
aProvider.AddAreaOfInterest (aShortCode)
set aAreasOfInterest = aProvider.GetAreasOfInterest
aMessage = aMessage & vbNewLine & aProvider.FullName &_
" has " & aAreasOfInterest.Count & " area(s) of interest"
aAreasInfo = ""
for each aAreaShortCode in aAreasOfInterest
aAreasInfo = aAreasInfo & aAreaShortCode.Description & ", "
next
if aAreasInfo <> "" then
aMessage = aMessage & vbNewLine & " " & aAreasInfo
end if
next
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Area Of Interest can be found and added in .