Помогите плиз...
Решил накалякать небольшое подспорье при работе с проектами в MS Project 2007...
Кейс такой:
При изменении значение одного поля в задаче необходимо сменить аналогичные поля и для нескольких других задач.
Пытаюсь реализовать с через перехват событий:
1. Код для объекта ThisProject:
1.
2.
3.
Private Sub Project_Open(ByVal pj As Project)
EnableEvents
End Sub
2. Создал Модуль ChangeCode:
1.
2.
3.
4.
5.
6.
Option Explicit
Public Chng As New clsChange
Sub EnableEvents()
Set Chng.ProjApp = MSProject.Application
End Sub
3. Создал класс модули clsChange и clsEvents:
clsChange
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit
Public Event AfterChangeTask(TskID As String, _
ByRef blnCancel As Boolean)
Public WithEvents ProjApp As MSProject.Application
Private Sub ProjApp_ProjectBeforeTaskChange(ByVal tsk As Task, ByVal Field As PjField, ByVal NewVal As Variant, Cancel As Boolean)
If NewVal = "Значение1" Then
If MsgBox("Are you sure you want to Change Task" & _
vbCrLf & vbCrLf & tsk.Name, vbYesNo) _
= vbNo Then
Cancel = True 'Cancel the Task Delete
Else
tsk.PercentComplete = 100
RaiseEvent AfterChangeTask(tsk.ID, False)
' End If
End If
End If
End Sub
clsEvents
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit
Public WithEvents EventApp As clsChange
Private Sub Class_Initialize()
Set EventApp = New clsChange
End Sub
Private Sub EventApp_AfterChangeTask(TskID As String, blnCancel As Boolean)
MsgBox ("Ок!!")
End Sub
В итоге событие ProjApp_ProjectBeforeTaskChange срабатывает нормально, а вот событие AfterChangeTask не срабатывает.:(
Подскажите чего не так делаю, плиз.. Программированием уже давно никаким не занимался.. так что сильно не наезжайте если уж совсем глупость написана :)
