Event fired if the modified flag of the project file has changed.

Syntax:

OnChangeProjectFileModifiedFlag(Project As TranslationProject, ProjectFile As ProjectFile, Modified As Boolean)
Parameters: Project Project containing the project file where the modified flag changed.
ProjectFile Project file where the modified flag changed.
Modified True: Modified flag is true. False: Modified flag is false.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnChangeProjectFileModifiedFlag(ByVal Project As TranslationProject, _
	ByVal ProjectFile As ProjectFile, ByVal Modified As Boolean)
 
[...]

End Sub

' in a module

Public EventManager As New EventClass

Sub TestMacro()
	Set EventManager.App = Application
End Sub

See also:

Class Application

Last Updated: 04/26/05