Permission.Add 方法
使用指定的权限和到期日期在当前表单上为指定用户创建一组新权限。
命名空间： Microsoft.Office.Interop.InfoPath.SemiTrust
程序集： Microsoft.Office.Interop.InfoPath.SemiTrust（位于 Microsoft.Office.Interop.InfoPath.SemiTrust.dll 中）
语法
声明
Function Add ( _
bstrUserId As String, _
varPermission As Object, _
varExpirationDate As Object _
) As UserPermissionObject
用法
Dim instance As Permission
Dim bstrUserId As String
Dim varPermission As Object
Dim varExpirationDate As Object
Dim returnValue As UserPermissionObject
returnValue = instance.Add(bstrUserId, _
varPermission, varExpirationDate)
UserPermissionObject Add(
string bstrUserId,
Object varPermission,
Object varExpirationDate
)
参数
bstrUserId
类型：System.String要被授予当前表单权限的用户的电子邮件地址，格式为 user@domain.com。必需。
varPermission
类型：System.Object要授予指定用户的当前表单权限，一个或多个 MsoPermission 值的组合。可选。
varExpirationDate
类型：System.Object要授予的权限的到期日期，System.DateTime 值。可选。
返回值
类型：Microsoft.Office.Interop.InfoPath.SemiTrust.UserPermissionObject
一个代表指定用户的 UserPermissionObject。
备注
若要访问用于设置 varPermission 参数的 MsoPermission 枚举值，您必须使用 Visual Studio 2008 或 Visual Studio 中**"添加引用"**对话框的 COM 选项卡来设置对 Microsoft Office 14.0 对象库的引用。这将建立对 Microsoft.Office.Core 命名空间成员的引用。
由于 Microsoft InfoPath 无法识别 Permission 对象及其成员，因此您必须将 thisXDocument 变量返回的对象强制转换成 _XDocument3 类型，才能访问此对象及其成员。有关详细信息，请参阅如何：使用与 InfoPath 2003 不兼容的 Microsoft.Office.Interop.InfoPath.SemiTrust 成员。
只能由从表单模板打开的表单访问此成员，已使用"表单选项"对话框"安全和信任"类别将该模板配置为以完全信任状态运行。此成员要求直接调用方的完全信任并且不能由部分信任的代码使用。有关更多信息，请参阅 MSDN 上的"使用部分信任的代码中的库"。
示例
在以下示例中，将使用 Add 方法将新用户添加到表单中，为该用户指定"完全控制"访问级别，并将到期日期设置为自当前日期起向后推算两天的日期。
此示例要求在表单模块的声明节中对 Microsoft.Office.Core 命名空间使用 using 或 Imports 指令。
_XDocument3 thisDoc = (_XDocument3)thisXDocument;
string strExpirationDate = DateTime.Today.AddDays(2).ToString();
DateTime dtExpirationDate = DateTime.Parse(strExpirationDate);
thisDoc.Permission.Add("someone@example.com",
msoPermission.msoPermissionFullControl, dtExpirationDate);
Dim thisDoc As _XDocument3 = DirectCast(thisXDocument, _XDocument3)
Dim strExpirationDate As String = _
DateTime.Today.AddDays(2).ToString()
dtExpirationDate As DateTime = DateTime.Parse(strExpirationDate)
thisDoc.Permission.UserPermissions.Add("someone@example.com", _
msoPermission.msoPermissionFullControl, dtExpirationDate)