Application.ProjectTaskNew 事件 (Project)

在创建新任务时发生。

语法

expression. ProjectTaskNew( _pj_, _ID_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
pj	必需	Project	已在其中创建了任务的项目。
ID	必需	Long	所创建任务的 ID。

返回值

Nothing

备注

您可以捕获从外部 VBA 项目级事件。

示例

下面的示例演示如何 ProjectTaskNew 事件可捕获项目级事件。 在这种情况下， App_ProjectTaskNew 事件处理程序设置 更改 事件处理程序使用的全局 ProjTaskNew 变量。 将类似的代码用于 ProjectResourceNew 和 ProjectAssignmentNew 事件。

1. 创建名为 EventClassModule ，一个类模块，然后插入以下代码:

Option Explicit 
Option Base 1 

Public WithEvents App As Application 
Public WithEvents Proj As Project 

Dim NewTaskIDs() As Integer 
Dim NumNewTasks As Integer 

Dim ProjTaskNew As Boolean 

Private Sub App_ProjectTaskNew(ByVal pj As Project, ByVal ID As Long) 
  NumNewTasks = NumNewTasks + 1 

  If ProjTaskNew Then 
      ReDim Preserve NewTaskIDs(NumNewTasks) As Integer 
  Else 
      ReDim NewTaskIDs(NumNewTasks) As Integer 
  End If 

  NewTaskIDs(NumNewTasks) = ID 

  ProjTaskNew = True 
End Sub 

Private Sub Proj_Change(ByVal pj As Project) 
  Dim NewTaskID As Variant 

  If ProjTaskNew Then 
      For Each NewTaskID In NewTaskIDs 
          MsgBox "New Task Name: " & ActiveProject.Tasks.UniqueID(NewTaskID).Name 
      Next NewTaskID 

      NumNewTasks = 0 

      ProjTaskNew = False 
  End If 
End Sub

2. 在一个独立模块中，插入以下代码：

Option Explicit 

Dim X As New EventClassModule 

Sub Initialize_App() 
  Set X.App = MSProject.Application 
  Set X.Proj = Application.ActiveProject 
End Sub

3. 运行 Initialize_App 过程开始侦听事件。

4. 创建一个任务。 每次添加新任务时，该事件处理程序会显示一个消息框。

支持和反馈

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