指定したインデックス位置にある PickerResult オブジェクトを取得します。 読み取り専用です。
構文
expression.Item(Index)
式PickerResults オブジェクトを返す式。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Index | 必須 | 整数型 (Integer) | PickerResult オブジェクトの位置を示すインデックスを表す整数値を指定します。 |
例
次のコードは 、PickerDialog ユーザー インターフェイスを表示し、結果を取得してから、それらの結果を列挙します。
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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。