PickerResults.Item-Eigenschaft (Office)
Ruft ein PickerResult-Objekt am angegebenen Index ab. Schreibgeschützt.
Syntax
expression.Item(Index)
Ausdruck Ein Ausdruck, der ein PickerResults-Objekt zurückgibt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Index | Erforderlich | Integer | Gibt eine ganze Zahl, die den indizierten Speicherort des PickerResult -Objekts darstellt. |
Beispiel
Der folgende Code zeigt die PickerDialog-Benutzeroberfläche an, ruft Ergebnisse ab und listet diese Ergebnisse auf.
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", "https://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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.