Microsoft Visual Studio 2010 提供了一个可用于生成事件接收器的项目类型，事件接收器会在 Microsoft SharePoint 2010 网站上选择事件之前或之后执行操作。此示例演示如何将事件添加到自定义列表项的添加和更新操作中。
此 SharePoint 直观操作方法介绍了用于在 Visual Studio 2010 中创建和部署事件接收器的以下步骤：
- 重写 itemAdding 事件和 itemUpdating 事件。
- 验证正在将项目添加到的列表是否为“Open Position”列表。
- 提升权限，使此代码能访问安全网站以检索批准的职务。
- 将批准的“Job Titles”与在“Open Position”列表中创建的新项的职位进行比较。
- 在“Job Title”未获得批准时取消此事件。
在此示例中，安全子网站包含一个名为“Job Definitions”的列表，此列表为组织中的角色指定允许的职务。除职务之外，此列表还包含有关职务的工资机密信息，因此应阻止用户获取此信息。主网站中有一个名为“Open Positions”的列表，该列表将跟踪组织中的空缺。您为 itemAdding 和 itemUpdating 事件创建两个事件接收器，它们将验证开放职位是否匹配“Job Definitions”列表中批准的职位之一。
先决条件
开始之前，创建子网站和所需列表。
创建“Job Definitions”子网站
-
在主网站的“网站操作”菜单上，单击“新建网站”。
-
在“新建网站”对话框中，单击“空白网站”。
-
在该对话框的右侧，单击“更多选项”。
-
在“标题”框中，键入 Job Definitions。
-
在“网站地址”框中键入 JobDefinitions。
-
在“权限”部分，单击“使用独有权限”，然后单击“创建”。
-
在“此网站的访问者”部分，选择“使用现有用户组”，然后选择“工作组网站所有者”。单击“确定”。
创建“Job Definitions”列表
-
在“Job Definitions”网站中，创建一个名为“Job Definitions”的自定义列表，此列表包含以下列：
- Title（默认列）
- MinSalary（货币）
- MaxSalary（货币）
- Role Type（选项：“Permanent”、“Contract”）
-
向此列表添加多个工作。请记下为创建的每个工作指定的职务，因为您稍后需要用到它们。
创建“Open Positions”列表
-
在父网站中，创建一个名为“Open Positions”的自定义列表，此列表包含以下列：
- Title（默认列）
- Location（单行文本）
创建事件接收器
紧接着，在 Visual Studio 2010 中创建一个“事件接收器”项目，然后向事件接收器文件添加代码。
在 Visual Studio 2010 中创建 SharePoint 2010 事件接收器
-
启动 Visual Studio 2010。
-
在“文件”菜单上，单击“新建”，然后单击“项目”。
-
在“新建项目”对话框中的“已安装的模板”部分，展开“Visual Basic”或“Visual C#”，展开“SharePoint”，然后单击“2010”。
-
在模板列表中，单击“事件接收器”。
-
在“名称”框中键入 VerifyJob。
-
保留其他字段的默认值不变，然后单击“确定”。
-
在“要使用哪个本地站点进行调试?”列表中，选择您的网站。
-
选择“部署为场解决方案”选项，然后单击“下一步”。
-
在“选择事件接收器设置”页的“需要哪种类型的事件接收器?”列表中，选择“列表项事件”。
-
在“哪个项应为事件源?”列表中，选择“自定义列表”。
-
在“处理以下事件”下，选中“正在添加项”和“正在更新项”复选框。单击“完成”。
修改事件接收器文件
-
在事件接收器文件中，向类添加以下代码。
VBPublic Function CheckItem(ByVal properties As SPItemEventProperties) As BooleanDim jobTitle As String = properties.AfterProperties("Title").ToString() Dim allowed As Boolean = False Dim jobDefWeb As SPWeb = Nothing Dim jobDefList As SPList Dim privilegedAccount As SPUser = properties.Web.AllUsers("SHAREPOINT\SYSTEM") Dim privilegedToken As SPUserToken = privilegedAccount.UserToken Try Using elevatedSite As New SPSite(properties.Web.Url, privilegedToken) Using elevatedWeb As SPWeb = elevatedSite.OpenWeb() jobDefWeb = elevatedWeb.Webs("JobDefinitions") jobDefList = jobDefWeb.Lists("Job Definitions") For Each item As SPListItem In jobDefList.Items If item("Title").ToString() = jobTitle Then allowed = True Exit For End If Next End Using End Using Return (allowed) Finally jobDefWeb.Dispose() End TryEnd FunctionC#bool checkItem(SPItemEventProperties properties) { string jobTitle = properties.AfterProperties["Title"].ToString(); bool allowed = false; SPWeb jobDefWeb = null; SPList jobDefList; SPUser privilegedAccount = properties.Web.AllUsers[@"SHAREPOINT\SYSTEM"]; SPUserToken privilegedToken = privilegedAccount.UserToken; try { using (SPSite elevatedSite = new SPSite(properties.Web.Url, privilegedToken)) { using (SPWeb elevatedWeb = elevatedSite.OpenWeb()) { jobDefWeb = elevatedWeb.Webs["JobDefinitions"]; jobDefList = jobDefWeb.Lists["Job Definitions"]; foreach (SPListItem item in jobDefList.Items) { if (item["Title"].ToString() == jobTitle) { allowed = true; break; } } } } return (allowed); } finally { jobDefWeb.Dispose(); } } -
在“EventReceiver1”文件中，将 ItemAdding 方法替换为以下代码。
VBPublic Overrides Sub ItemAdding(properties as SPItemEventProperties) Try Dim allowed As Boolean = True If properties.ListTitle = "Open Positions" Then allowed = CheckItem(properties) End If If allowed = False Then properties.Status = SPEventReceiverStatus.CancelWithError properties.ErrorMessage = _ "The job you have entered is not defined in the Job Definitions List" properties.Cancel = True End If Catch ex As Exception properties.Status = SPEventReceiverStatus.CancelWithError properties.ErrorMessage = ex.Message properties.Cancel = True End TryEnd Sub
C#public override void ItemAdding(SPItemEventProperties properties) { try { bool allowed = true; if (properties.ListTitle == "Open Positions") { allowed = checkItem(properties); } if (!allowed) { properties.Status = SPEventReceiverStatus.CancelWithError; properties.ErrorMessage = "The job you have entered is not defined in the Job Definitions List"; properties.Cancel = true; } } catch (Exception ex) { properties.Status = SPEventReceiverStatus.CancelWithError; properties.ErrorMessage = ex.Message; properties.Cancel = true; } } -
在“EventReceiver1”文件中，将 ItemUpdating 方法替换为以下代码。
VBPublic Overrides Sub ItemUpdating(properties as SPItemEventProperties) Try Dim allowed As Boolean = True If properties.ListTitle = "Open Positions" Then allowed = CheckItem(properties) End If If allowed = False Then properties.Status = SPEventReceiverStatus.CancelWithError properties.ErrorMessage = _ "The job you have entered is not defined in the Job Definitions List" properties.Cancel = True End If Catch ex As Exception properties.Status = SPEventReceiverStatus.CancelWithError properties.ErrorMessage = ex.Message properties.Cancel = True End TryEnd Sub
C#public override void ItemUpdating(SPItemEventProperties properties) { bool allowed = true; if (properties.ListTitle == "Open Positions") { allowed = checkItem(properties); } try { if (!allowed) { properties.Status = SPEventReceiverStatus.CancelWithError; properties.ErrorMessage = "The job you have entered is not defined in the Job Definitions List"; properties.Cancel = true; } } catch (Exception ex) { properties.Status = SPEventReceiverStatus.CancelWithError; properties.ErrorMessage = ex.Message; properties.Cancel = true; } }
部署项目
-
在解决方案资源管理器中，右键单击该项目，然后单击“部署”。
-
在 SharePoint 网站的“Open Positions”列表中，单击“添加新项”。
-
在“Title”字段中，为未包含在安全子网站中的“Job Definitions”列表中的工作说明提供职务。
-
单击“保存”。您将收到一条来自事件接收器的消息。
-
在“Title”字段中，为包含在安全子网站中的“Job Definitions”列表中的工作说明提供职务。
-
单击“保存”。这将创建此职位。
- 此解决方案将重写 ItemAdding 和 ItemUpdating 方法，并验证正在将项目添加到的列表是否为“Open Positions”列表。如果是，则调用 CheckItem 方法，以传入与此事件关联的属性。
- 在 CheckItem 方法中，提升权限以确保成功访问安全子网站。将批准的列表中的职务和此事件所关联的 properties.AfterProperties 属性的职务进行比较。如果任何职务匹配，则将 allowedBoolean 变量设置为 true，并且此方法将返回。
- 根据 allowed 变量的值，调用方法将允许此事件或设置 properties.ErrorMessage 属性，然后使用 properties.cancel 取消此事件。