Table of contents
TOC
Collapse the table of content
Expand the table of content

PickerResults.Item Property (Office)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Retrieves a PickerResult object at the specified index. Read-only

Syntax

expression. Item( Index )

expression An expression that returns a PickerResults object.

Parameters

NameRequired/OptionalData TypeDescription
IndexRequiredIntegerSpecifies an integer representing the indexed location of the PickerResult object.

Example

The following code displays the Picker Dialog user interface, gets results, and then enumerates those results.

Dim objPickerDialog As PickerDialog 
Dim objPickerProperties As PickerProperties 
Dim objPickerProperty As PickerProperty 
Dim objPickerExistingResults As PickerResults 
Dim objPickerExistingResults As PickerResult 
Dim objPickerResults As PickerResults 

' Configure the Picker Dialog properties. 
Set objPickerDialog = Application.PickerDialog 
objPickerDialog.DataHandlerId = "{000CDF0A-0000-0000-C000-000000000046}" 
objPickerDialog.Title = "Sample Picker Dialog" 
Set objPickerProperties = objPickerDialog.Properties 
Set objPickerProperty = objPickerProperties.Add("SiteUrl", "http://my", msoPickerFieldtypeText) 
Set objPickerExistingResults = objPickerDialog.CreatePickerResults 
Set objPickerExistingResult = objPickerExistingResults.Add("johndoe@contoso.com", "John Doe", "User") 

' Show the Picker Dialog and get the results. 
Set objPickerResults = objPickerDialog.Show(True, objPickerExistingResult) 

' Enumerate the results. 
For index = 1 To objPickerResults.Count-1 
 Debug.Print objPickerResults.Item(index).Id 
 Debug.Print objPickerResults.Item(index).DisplayName 
 Debug.Print objPickerResults.Item(index).Type 
 Debug.Print objPickerResults.Item(index).SIPId 
Next

See also

Concepts

PickerResults Object

Other resources

PickerResults Object Members

© 2018 Microsoft