Event fired if the active target language has changed.

Syntax:

 
OnChangeActiveTargetLanguage(Project As TranslationProject, NewActiveTargetLanguageCode As String)
Parameters: Project Project for which the active target language has changed.
NewActiveTargetLanguageCode Language code of the new active target language.
Example: 
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnChangeActiveTargetLanguage(ByVal Project As TranslationProject, _
	ByVal NewActiveTargetLanguageCode As String)
 
[...]

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