通过

PickerResults.Add 方法 (Office)

  • 项目

将 PickerResult 对象添加到 PickerResults 集合。

语法

表达式。添加 (Id、 DisplayName、 Type、 SIPId、 ItemData、 SubItems)

表达 返回 PickerResults 对象的表达式。

参数

名称 必需/可选 数据类型 说明
Id 必需 字符串 表示 PickerResult 的标识符。
DisplayName 必需 字符串 表示 PickerResult 的显示名称。
类型 必需 字符串 表示 PickerResult 的类型。
SIPId 可选 String 当前不受支持。 SIPId 是 Office 通信服务器的标识符。 它仅用于人员选取方案。
ItemData 可选 Variant 不显示项绑定数据。
SubItems 可选 Variant 显示 PickerResult 的用途或非显示目的字段数据。 它用于在 PickerDialog 中传递列值。

返回值

PickerResult

示例

以下代码设置 PickerDialog 属性，然后显示 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)

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。